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SPECTRUM PLUS Y 128 
¡ALLELUIA, ALLELUIA! 


Le presentamos el regalo de estas Navidades que Y una potente memoria RAM de 128 K que le permite 
vale por todos. ejecutar los programas más complicados, almacenar 


Si está pensando en regalar juegos, futuro, aprobado más información. 


en Matemáticas... regale Spectrum 


SPECTRUM PLUS Y 128 
mundo. ORDENADORES CON BUENA ESTRELLA 


La familia de ordenadores familiares más vendida del 


Y la gran novedad del mercado: Spectrum 128 K. Una 

exclusiva mundial con teclado en español, y teclado 

adicional para editar programas, textos, controlar investronica 
juegos o como calculadora. 


Con un simple comando puede convertirse en 
g Spectrum Plus. Dos ordenadores en uno solo. 
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ACTUALIDAD. Investrónica trae el Atari 520. 
Rumores de un nuevo QL. El coche fantástico en 
trum. 


CINCO HORAS CON SCREENS. Con este articulo 
presentamos diversos modos de manejar la pantalla en 
modo gráfico buscando obtener mås calidad en 
nuestros programas. 


HARDWARE PRACTICO. Explicamos los 
conocimienots básicos necesarios para poder hacer 
cualquier montaje con garantias de funcionamiento. 


INFINITA PRECISION CON EL SPECTRUM 


JUEGOS. Prueba tus ca lades deductivas con 
SHERLOCK y conviértete en un aguerrido karateka 
con el EXPLODING FIST 


UN NUEVO OPERATIVO PARTE 4. Seguimos 
explicando el desensamblado de las diversas rutinas 


GUSANEZ 


Qt. MAGAZINE. Manejos gráficos desde el 
SUPERBASKC+-programa рага generar 


participaciones de loteria. 


LA ULTIMA BATALLA. Un super juego estratégico 
que hara las delicias de todos aquellos amantes de los 
‘wargames’, o juegos de simulación de guerras 


CONCURSO MATEMATICO, Si te gusta 
programar y sabes algo de matematicas. no dejes de 
participar en nuestro concurso para пи eniale: 
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oder teclear oiro progra” 


Con el mes de 
que todo el mundo ар" 
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cemos una шеек шү 
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И de este juego A. 
de código máquina que seguirá 
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ñ viene, Feliz 1986. 
nos sigáis leyendo el año que viene Feli 


10 REM 


20 REM 


30 REM 


40 REM 


La noticia, que ya se venia rumoreando, ha caido como 
una bomba al confirmarse este pasado SIMO. Investrónica, 
importador oficial de los productos Sinclair para 
España, ha cogido la representación de los nuevos Atari 
sin abandonar Spectrum 0 QL. Tal como están las cosas, 
"esto significa que ahora tiene dos máquinas (QL y Atari 
520) que se hacen la competencia mutua. 


Sinclair no solo no se hunde (como pretendian muchos), 
si no que se anuncian y rumorean nuevos productos, entre 
ellos una versión mejorada del QL. Con 21 nombre de 
ENIGMA, tendra 1 megabyte de memoria, un 68000 (no un 
68008 como el modelo actual); disco de 3 pulgadas y 
media Y el sistema operativo basado en iconos У ratón. 


La invasión de los juegos basados en series famosas del 
cine o la televisión no cesa. El último que se anuncia 
está basado en "El coche fantástico”- 


En Inglaterra se encuentra de moda el 'MUD”, abreviatura 
de Multi User Dungeon (Aventura Multiusuario)- Esto no 
es mas que Un ordenador central propiedad de la British 
Telecom (la compańia +elefónica britanica) al que 105 
jugadores se pueden conectar Por medio de un teléfono У 
un modem, permitiendo que varias personas juegen 
sinultaneamente e incluso se peleen entre si. ¿Para 
cuando telefónica hará algo igual?. 


-E 


CINCO HORAS 
SCREEN $ 


Cuando se compra un ordenador como el Spectrum, uno 
siempre piensa que va a escribir sus propios programas de 
juegos. Pero en seguida cae en la cuenta de que la decisión 
necesariamenie implica pasar por comprender el 
funcionamiento de la zona de pantalla. Y по es este un 
asunto trivial. Parece mentira que una zona tan 
iluminada, resulte a la vez tan oscura. 


1 Spectrum dispone de una 
Бәлен de alta resolución 
de formato único, que fun- 
EM Ciona según el método lla- 
mado «mapeado en bits» 
(bit-mapped). Decimos «de forma- 
to único» porque es muy común 
en otros ordenadores el disponer 
de dos o más posibles organizacio- 
nes —que se caracterizan por dar 
más colores cuanta menor sea la 
resolución. 
La complejidad de la distribu- 


ción de la pantalla aumenta enor- - 


memente en cuanto nos salimos 
del BASIC. Para proceder por or- 
den, empezaremos a este nivel. 

Es posible referirnos a la panta- 
lla de dos modos, aunque más tar- 
de veremos que es uno solo. Pode- 
mos hablar de casillas y de «pi- 
xels». 

Convendremos en llamar casi- 
llas de caracteres a los espacios de- 
dicados a caracteres. Si escribe: 


PRINT AT  12,16;¡INVERSE 


pos 


se dibujará en mitad de su pantalla 
un cuadro de color. Esta superficie 
es la que llamamos casilla. La reso- 
lución —el número de casillas del 
que se dispone— es de 32 colum- 
nas por 24 lineas, siendo las dos úl- 
timas no accesibles directamente. 

Cada casilla tiene asociado un 
byte en la llamada área de atribu- 
tos. Este Буе guarda información 
sobre el color de la «tinta», el «pa- 
pel» y la condición de parpadeo o 
brillo. Más adelante veremos más 
sobre ello. 

El término pixel (picture ele- 
ment, elemento de imagen) hace 
referencia al punto más pequeño 
que puede usarse en la pantalla del 
Spectrum. Haciendo 


PLOT 128,88 


dibujaremos un pixel en mitad de 
la pantalla. Es posible dibujar 256 
pixels en horizontal y 176 en verti- 
cal. 

Como se indica de manera im- 
plicita en los ejemplos anteriores, 


nosotros accedemos a un punto a 
travćs de sus coordenadas. En el 
caso de las casillas, en primer lugar 
se indicará la coordenada vertical 
y, seguida de una coma, la coorde- 
nada horizontal. El origen de coor- 
denadas —el punto 0,0— es la es- 
quina superior izquierda. En lo 
que a pixels se refiere, la primera 
coordenada es la horizontal, y la 
segunda la vertical. El origen está 
en la esquina inferior izquierda. 
Como vemos, en este último caso, 
la semejanza es total con las coor- 
denadas cartesianas. 

Muchas veces es necesario cam- 
biar la posición del origen y/o am- 
pliar o reducir los dibujos. Las 
transformaciones a realizar son 
sencillisimas. Veamos el programa 
1 (fig. 1), que incluye todas las 
transformaciones a realizar para el 
dibujo de cualquier función, que se 
indicará en la línea 160. 


Debemos tener en cuenta que 


los pixels y las casillas no son sino 
diferentes maneras de ver una mis- 


ma cosa. Un caracter cualesquiera 
esta formado a base de puntitos os- 
curos o iluminados. Estos puntitos 
no son otra cosa que pixels. Asi, 
una casilla es una matriz 8 x 8 
puntos. 


podrá estar a cero o a uno (dando, 
por tanto, el color del papel o de la 
tinta). Existe otra segunda área, la 
ya comentada de atributos, que 
asocia un byte a cada casilla. La or- 
denación es muy simple. La pri- 


verde 


=rojo 
3 = morado (magenta) 


azul claro (cian) 
ani 


+-+-т-+-+-+-+-+-+ 
!Е!В!Раре1!ТїпХа! 
+-+-+-+-+-+-+-+-+ 
b, bo 


Figura 1. 


Atributos 


Consideremos ahora el abando- 
nado tema de los atributos. Como 
mencionábamos, para cada casilla, 
existe un byte de atributos. El va- 
lor de este octeto puede expresarse 
como 
1}+8æCódi- 
go papel+Código tinta 


Este valor puede obtenerse me- 
diante el comando ATTR (x,y). 

Dejemos de lado el parpadeo o 
el brillo, mantengamos únicamen- 
te la información de los colores. 

Cuando ponemos cualquiera de 
los bits del mapa que forma la pan- 
talla, a uno, inmediatamente dicho 
punto tomará el color de la tinta 
que hallamos asignado. Los bits 
que estén a cero, adoptarán el co- 
lor del papel. Veamos un ejemplo 
en el que se escribe A’s en toda la 
pantalla (programa 2). La linea 30 
tiene por misión el poner todos los 
atributos de la pantalla a un valor 
determinado. 


¿Cómo es posible? 


Hemos visto, aunque de manera 
indirecta, que los datos introduci- 
dos en ciertos lugares de la memo- 
ria RAM se reflejan en la pantalla 
de alguna extraña manera. En 
efecto, entre las direcciones 16384 
(4000H) y 22527 (57FFH) está al- 
macenada la información sobre pi- 
хез. Todo punto —caracterizado 
por sus coordenadas— tiene aso- 
ciado un bit que, como siempre, 


mera posición (22528, 5800H) co- 
rresponde a la esquina superior iz- 
quierda. El siguiente dato será el 
correspondiente a la casilla situada 
a la derecha de la anterior. Y se- 
guimos en la misma línea hasta la 
posición 32. La siguiente ya co- 
rresponde al segundo renglón. Así, 
hasta completar 3224 = 768 by- 
tes (300H). 

Otro punto de interés es la ma- 
nera en la que los datos almacena- 
dos en memoria pueden salir a la 
pantalla. En detalle el procedi- 
miento es complejo, pero podría 
resumirse diciendo que en la ULA 


—circuito integrado especialmente 
diseñado para el Spectrum— exis- 
ten una serie de circuitos que con- 
tinuamente interrumpen el acceso 
a memoria del microprocesador, y 
obtienen del área de pantalla la in- 
formación adecuada. Estos datos 
debidamente procesados se man- 
dan al circuito modulador, que los 
envía a la toma de antena en una 
portadora de alta frecuencia. 


La distribución del área 
de pantalla 


Volvemos a los pixels. Los pun- 
tos correspondientes a una misma 
«rebanada» horizontal de una mis- 
ma casilla están almacenados en 
un byte. Esto supone grandes ven- 
tajas de orden práctico, ya que nos 
permite simplificar enormemente 
la tarea de escritura de caracteres 
en pantalla. 

Los aficionados a los juegos se 
habrán preguntado muchas veces 
por qué al cargar un dibujo de pre- 
sentación, las líneas van apare- 


ciendo en tan extraño orden. Un 
efecto semejante es el que muestra 
el programa 3. Al igual que en el 
caso anterior, mientras que la me- 


La figura 2 muestra para cada 
las direcciones asociadas a cada re- 
10 REM Prograna 1 500051 Pona a banada. 
20 кен Ре тағ 
30 [ET wozsór2: LET Yo=176/2 ORAZ OCE AU AI 

+ бн pożicion del arisen 4 5040 

e coordenadas A 
40 (LET XF-20: LET YF-20: REM GOs ТАБ юа е саре За pantatia | PLOT a velocidad de luz 

Factores de escala, Mayor q CZ Ki 

ue uno, agrandan, menom, di 5280) TE ÓW 3 Я 
ога ë 0100 Trabajando en lenguaje ensam- 

PROF шамада мі. 9110 LD DE, TEXTO % 

ОТ Х0,10: DRAW 0,156: REM D 0120 BUCLE LD А; ШЕ) blador —lo que se conoce inco- 
эз REM Dibujo da escalas cua Сы rrectamente como código máqui- 
$€ LET шеке: ГЕТ UE 0130 RST їн na— muchas veces descamos co- 

0180 INC DE Н 

10: 60 TO 70 0170 JIR BUCLE nocer a partir de las coordenadas 
зо IF UY>80 THEN LET uy=UY/I 6429 la direcoló 1 

с: 60 то во 9195. Yeso KORZE de un punto la dirección en la que 
90 Тешз THEN LET ux=iowsux 9452 [= ТН Ті 
100 IF UYES THEN LET UY=10%UY ло KARE 

во то 100 9820 
110 UXAINT (XO/UX) CZA ZALANA 
121 10 еше: PŁOT итер CREWE 0001 

X,Y0-2: DRAW 0,5: NEXT I окы Mii 0002 | en 
120 -10-UY*INT (YO/UY): 0003 ; яаж SCROLL VERTICAL kX 

LET DY=BY-UYX(DY>UT/2): FOR 0004 2 эквекевкекекееенн 

1-1 TO 1566 — ZIN < 

YATAY: DRAW 5,0: 0006 ile) Luis Miguel BRUGAROLAS 1935 
120 PRINT AT 0,0; "Intervalos X ооо? 

РУШ бүк YEU z а 
а йн ааа" moria se altera de forma consecuti- | 2002 ДЫ 

158 TO 250: LET x=(I-X „0708H 
va, el efecto se muestra de manera | 900 „м, LD BC,07 
140 LET Y=TAN X alterna. 0012 
170 LET YCZYFŁY+YO: IF_YCJO AN 0012 LD во 

ЕЕ A primera vista podemos distin- | 9914 io 

svo A ВОСІ 0015 
190 NEXT I guir tres bloques idénticos. Los tres | оов моск ір E 

5 ei > тн 
tienen una ordenación igual, рог | osie DEC D 
lo que estudiaremos únicamente el | 001% IR "TRANGF 
L 7] primero, que va de la dirección оой LINE кх 
4000H а la 47FFH. Un análisis | 0023 IR NE,TRANSF 
más detallado nos lleva a descubrir | 204012, 
que en cada bloque hay 8 bandas. н 
Tres bloques multiplicado por 8 0028 
bandas por bloque, nos dan un to- | 9025 
tal de 24 bandas... ¡Estas bandas | 993: ne 
son las líneas de texto! En efecto, 9033 
estas líneas tienen una altura de «8 1 з 
10 КЕМ Programa 2 pisos». A lo ancho, cada una ocu- | 59% 
ОПЕЕ GRODU ра 256/8 = 32 bytes. 32 bytes/linea | соз 
ИЫ х 8 líneas por banda x 8 bandas = | созо но ғтм 
50 READ A 2048, los 2 K que se obtienen res- | 004% 
A tando direcciones de principio y fi- | 9043 ютак 
100 BATA BIN 00000000 па! СЕЗЕ 
Pays ; ZĘ 
12 
130 DATA BIN 01000010 Generalmente, nuestro mayor | 5042 
КЖ ео interés reside en escribir por li- | 994? 
(KA DATA ON Жоао neas. Esto es sencillo, pues par- 0051 
170 DATA BIN 00000000 : Б Т 2 е 
зао tiendo de la dirección del primer | 9022 W- 
А ladrillo de la casilla, las siguientes | 098% a 
212 se obtienen sumando 256 a las an- | ооѕг жон А 
220 сз . 9 9057 їр Музон 
230 FOR tuiesea ТО 22527 teriores, hasta conseguir los ocho | 5555 LD HA 
250 ET pisos. Las primeras filas de casilla | 52% рете 
эз PASZ se caracterizan porque tienen 1053 | oos: tore 
bits menos significativos del byte | 992 
0064 
alto a cero. 2055 
ы 0066 
El cambio de bloque supone | 304 Pala 
nuevas complicaciones, que se re- | оог їр HL!58204 
solverán en cada caso de forma di- | 2020 а 
ferente. (Obsćrvese, рог ejemplo, 
las soluciones adoptadas en los 
programas de scroll). 


se encuentra el punto a dibujar, y 
cuál de los bits es. Aunque parezca 
mucho pedir, existe en ROM una 
subrutina que nos viene al dedillo. 
Si cargamos en B la coordenada 


ra desde programas en código má- 
quina (ahora sí). | 

Las manipulaciones que requie- 
re la operación son muy sencillas. 
Cuando vayamos a escribir algo 


010864 01 LD BC, 256"100-200; Х(С)-200, Y(B)=100 
CDAA22 02 CALL 22AAH 
47 03 LD BA 
04 04 INC B 
3E01 05 LD A, 01 
OF 06 ROT RRCA 
10FD 07 DJNZ ROT 
B6 08 OR (HL) 
77. 09 10 (HL), A 
c9 10 RET 

Figura 3. 


‘Y’, еп C la 'X', y llamamos a la 
subrutina de la dirección 22AAH, 
volveremos guardando en HL la 
dirección del byte a alterar. En el 
registro A tendremos el orden de 
nuestro bit. Pongamos el ejemplo 
concreto de hacer un PLOT en el 
punto 200,100. Escribiremos el 
programa de la figura 3. 

La simulación de un OVER 1 se 
llevará a cabo mediante la función 
XOR. Cambiaremos la línea 3 por 
un LD A,OFEH, y la 6 por el con- 
sabido XOR (HL). 


Escritura de textos 
en programa ensamblador 


Vamos a pasar a otro asunto más 
interesante si cabe. Se trata de es- 
cribir textos en pantalla o impreso- 


10 REM Programa 2 
20 REN 
30 DATA 33,0,72,17,0,11€,1,0, 


8,237, 17 

40 CLEAR 20000 

so LET ADDR= 

40 FOR Тед TO 11: READ A: POK 
E_I+ADDR,A: NEXT I 

70 REM Alnaceramos en Memoria 

80 FOR 1=0 TO 14: CLS 

90 PLOT 20,80: DRAM 200,0, (1- 


БЛ 

100 POKE 400845, 256- (1+1148 

110 RANDOMIZE USR ADDR 

120 NEXT 1 

130 REM Visualizacion 

140 POKE ADDR+5,72 

150 FOR 1-0 TO 14: pause 
KE ADDR+Z,254-(1+1) 44 
OMIZE USR ADDR: NEXT 1 

160 FOR 1-14 70 O STEP -1: PAU 

: POKE ADDR+2,254-(1+1) 

ANDOMIZE USR ADDR: МЕХ 


PO 
RAND 


9001 
9002 | NŁNRY EEEE KKA 
0003 1%% PROGRAMAS DE SCROLL *X 
0004 ixt ЕМ HORIZONTAL | 44 
0005 | KAŁEK 
0004 

0067 
0008 
0009 
0010 
9011 


ite) Luis Miguel BRUGAROLAS 1965 


9012 LD  HL,4000H 
9013 LD с,2яже 
0014 LINER LD B;SZ 
0015 хов A 

0018 ROTR RR (HL) 
0017 INC HL 

0018 DINZ ROTR 
0019 DEC С 

9020 18 NZ,LINER 
0021 RET 

0022 

0023 ¡SCROLL UNA LINEA A LA DERECHA 
0024 ;---- a — 
0025 

9026 LD ML;5000H 
0027 їр coe 
0020 LINEIR LD 8,22 
0029 хов а 

0020 ROTAR RR (HL) 
0031 INC L 

0032 DINZ ROTAR 
0033. їр A,-32 
0034 ADD A.L 
0035 LD LIA 
0036 INC H 

0037 DEC С 

0038 ін NZ,LINEIR 
9039 RET 

0040 

9041 у SCROLL A LA IZQUIERDA 
0042 1---- 25 --- 
0043 

0044 LD HL,57FFH 
0045 їр с, 
0046 LINEL LD B,32. 
0037 XOR А 

оозе коп RL (HL) 
0049 DEC HL 

0050 DINZ ВОТЬ 
0051 DEC С 

0052 IR NZ,LINEL 
0053 

оза 

0055 

0054 

0057 

0050 їр HL,SO1FH 
0059 їр суг 
0050 LINEIL LD B.32 
0051 YOR A 

0042 вот RL (HL) 
0053 DEC L 

0054 DINZ ROTIL 
0065 LD А, 32 
9062 ADD А, 
0087 \р ца 
0068 INC H 

0089. DEC с 

0070 зв NZ,LINEIL 
0071 RET 


por primera vez, debemos asegu- 
rarnos de que el canal de pantalla 
se encuentre abierto. Y la mejor 
forma de hacerlo, es forzando la si- 
tuación. Una vez realizado esto, 
simplemente cargamos en A el có- 
digo del caracter a imprimir, y ha- 
cemos un RST 10H. El caracter 
aparecer en pantalla. Con objeto 
de controlar su posición, podemos 
emplear los códigos de control 
comprendidos entre 16 y 23. Asi, 
si queremos hacer el equivalente 
de PRINT AT 10,12;*:k";TAB 
13;“-”, escribiremos un programa 
como el 4 (figura 5). Para el 
PRINT AT, mandamos el código 
AT, y a continuación las dos coor- 
denadas del lugar donde deseamos 
escribir y el caracter o caracteres a 
imprimir. El PRINT TAB guarda 
una ligera sorpresa, en el sentido 
que requiere 2 bytes, como siem- 
pre el primero es el menos signifi- 
cativo. Es curioso, pero el más sig- 
nificativo no lo es en absoluto, 
pues se ignora por completo. 

Esta no es la única manera de es- 
cribir texto en pantalla aunque sí 
la más útil. Indicaremos nada más 
que la mencionada subrutina no 
perturba el contenido de los regis- 
tros —sí del juego alterno o ima- 
gen—, por lo que puede usarse di- 
rectamente. 


Cambios de juego 
de caracteres 


La información sobre el «perfil» 
de los caracteres se halla almace- 
nada en ROM, entre las direccio- 
пез 3000 y 3FFFH. La selección 
se realiza mediante direcciona- 
miento indirecto al contenido de 
icómo no!, una de las variables del 
sistema. En CHARS (23606 y 7) se 
almacena la dirección de comien- 
zo de la tabla menos 256. Esto es, 
el byte bajo queda inalterado, y el 
alto queda disminuido en una uni- 
dad. Si creamos otra, esta vez en 
RAM, y modificamos consecuen- 
temente este puntero, podemos 
disfrutar de caracteres a medida, 
Incluso podemos usarlo como me- 
dida de protección en nuestros 
programas. 


Programas de Scroll 
suavecito 


Aunque el término «Scroll» nó 
es excesivamente español, se halla 
asumido perfectamente por los 
usuarios del Spectrum. Por si toda- 
vía hay algún despistadillo, dire- 
mos que se trata de un desplaza- 
miento de la imagen en pantalla. 
El Scroll que dispone el ordenador 
tiene la ventaja de ser muy rápido, 
pero es hacer un USR 3582). Con 
objeto de proporcionar al Spec- 
trum un aspecto más profesional, 
se ha escrito una rutina de scroll 
vertical muy suave. Merece la 
pena probarse. 


Igualmente, hemos escrito pro- 
gramas de Scroll en horizontal, 
tanto para la pantalla entera, como 
para una única línea. Este último 
puede resultar de gran interés para 
juegos del tipo de una autopista 
que se ve por encima. 


Cambio de pantallas 


En muchas ocasiones resulta 
muy interesante mover rápida- 
mente complicadas figuras. Como 
no es posible dibujarlas en tan 
poco tiempo, debemos buscar un 
método alternativo. Este método 


existe. Efectivamente, es posible 
transferir bloques enteros de pan- 
talla de un lugar a otro de la me- 
moria, dando ilusión de movi- 
miento. El programa 8 ilustra el 
efecto. Aquí no se ha realizado la 
transferencia de la pantalla entera, 
sino sólo del tercio central. De esta 
manera, tenemos la oportunidad 
de guardar más imágenes, y por 
tanto de conseguir un mayor rea- 
lismo. En cualquier caso, siempre 
podemos guardar la pantalla com- 
pleta, incluso con el área de atribu- 
tos. 


Luis M. Brugarolas 


100 DATA 217,1,8,7,217,6,0,32, 
0,65,93,84,21,24,5,217 

110 DATA 111,48,1,25,14,32,227 
,176,62,224,131,95,48,1,20, 
217 

120 DATA 16,237,6,7,217,125,18 
3.40,17,42,249,132,103,14,3 
2,237 

130 DATA 176,62,224,132,111,48 
;211,24,24,208, 124,254,88,2 
2,238, 175 

140 DATA 32,224,87,119, 17,225, 
87,14,31,237,175,217,12,22, 
181,217 

150 DATA 17,0,88,22,32,88,1,22 
4.2,237,176,201,33,0,64,14 

160 DATA 192,6,32,175,203,30,3 
5,14,251,19,22,245,201,33,0 
+80 Š 

120 „MATA 14,8,4,92,1>5,203,20, 
44,14,251,42,224,132,111,26 
443 

180 DATA 32,240,201,33,255,87, 
14,192,6,22,125,203,22,43,1 
6,251 

190 DATA 13,32,745,201,33,21,3 


0,14,2,6,22,175,202,22,45,1 
é 

200 DATA 251,62,32,123,111,36, 
13,32,240,201 A 

500 LET SUM=0; LET DIR=23294 

510 FOR I=0 TO 169 

520 READ A: POKE DIR*I,A: LET 
SUM=SUM+A 

530 NEXT I 

540 IF SUM£>16262 THEN ВЕЕР. 
5,40: PRINT "ERROR EN EL DA 


TA": STOP 

600 REM 

410 REM DEMOSTRACION 

420 REM 

430 CLS': FOR ісі TO 22421: PR 
INT CHRS (32+1CO%RND NE 
XT i 


640 REM Estas rutinas son rel 
o-calízables, pueden situar 
se en cualquier lugar de la 
menor i 

450 REM Scroll Vertical 

440 RANDOMIZE USR dir: 
„10: PAUSE 50 

$70 REM Scroll a la derecha 


ВЕЕР .: 


880 RANDOMIZE USF (dir+92): РЕ 
EP „1,20: PAUSE 50 

490 FOR 1=0 TO 7; RANDOMIZE U 
R (dir+92); NEXT |; ВЕЕР , 
«10: PAUSE 50 

200 REM Scroll a la izquierda 

710 RANDOMIZE USR (dir+121): Р 
EEP .1,20: PAUSE 50 

720 FOR 1=0 TO 7: RANDOM: 
R (dir+121): NEXT 
1,10; PAUSE 50 

730, INPUT "Fila (0-23):";F: IF 
F<O OR F>22 THEN GO TO 72 
a 

740 LET H=SKINT (F/2)+44 

250 LET L=22*(F-8ŁINT (*/2)) 

760 POKE dir+110,1: POKE 44%! 

: 149,1101: РО 


28 


IZE US 
ВЕЕР . 


220 REM е-есіі de lineas 
780 BEM A la derecha 
790 RANDOMIZE US% (di 
EEP .1,20: PAU 
eoo FOR і50 то 
© (dir+109): NEYT 
1,10: PAUSE mo 


СОЗАМЕ Z. 


por José C Tomás 


ESTOY ENAMORADO 
COMO UN |МВЕСИ. 


МЕ HE DEJADO 
COCIENDO LĄ LECHE ! 


1 mirar cualquier circuito 
A electrónico entramos en un 

mundo misterioso habitado 
EE por los seres más extraños 

que pudiésemos imaginar. 
Allí conviven raras especies de 
ciempiés negros y planos, con 
multitud de patas brillantes, cono- 
cidos como «chips», transistores de 
varias especies, grandes y alarga- 
dos con placas metálicas, o como 
pequeñas cabezas, metálicas о 
plásticas, y dos o tres patas de 
alambre, resistencias como gusa- 
nos cilíndricos con el cuerpo pin- 
tado con anillos de colores, con- 
densadores con forma de pequeños 
barriles metálicos, o pequeñas go- 
tas de plástico que se hubiesen so- 
lidificado repentinamente, o bien 
en forma de lenteja. Esta fauna 
exótica vive sobre un curioso terre- 
no, llamado «placa de circuito im- 
preso», o «placa» a secas, alimen- 
tándose de electricidad y realizan- 
do funciones más o menos desco- 
nocidas. A estos bichos y a sus cos- 
tumbres dedicaremos este artículo. 


El principio: voltios, 
amperio: 


Bueno, pues todos estos bichos, 
desde la más pequeña resistencia 
hasta un ordenador, dependen y 
viven de la electricidad, que es esa 
cosa que se esconde en los enchu- 
fes de las paredes y que suele dar 
calambres. Pero, ¿qué es la electri- 
cidad? Pueden decirse muchas co- 
sas sobre ella, pero iremos a lo 
práctico. En principio, es algo que 
tiene que ver con unas fuerzas que 
se producen entre partículas «car- 
gadas», y que nos interesa que se 
muevan (y eso es todo, porque no 
es cosa de dar un curso de Física). 

Podemos ver dos cosas intere- 
santes en la electricidad: una, la 
que hace que esas partículas carga- 
das se muevan (a las que, a partir 
de ahora, llamaremos electrones) y 
otra, que es el movimiento. Pense- 
mos en un ejemplo típico: una pe- 


queña cascada que cae sobre un 
molino de agua. La rueda se mue- 
ve al caer el agua en las paletas (fi- 
gura 1). Y se mueve con más rapi- 
dez si la catarata es más alta, aun- 
que no caiga más agua, pero tam- 
bién con la misma altura y más 
agua giraría con mayor rapidez. Es 
decir, hay dos aspectos que nos in- 
teresan, la altura y la cantidad de 
agua. Con la electricidad ocurre lo 
mismo, nos interesan la fuerza, lla- 
mada «tensión», que se mide en 
voltios (V), y la cantidad, llamada 


cir, siempre de positivas a negati- 
vas o de positivas a masa o de masa 
a negativas. Pensemos de nuevo en 
el agua. Si llueve en la cima de una 
montaña, o en donde sea, el agua 
va siempre buscando los puntos 
más bajos, de menor altura. Así se 
comporta la corriente. 


Potencia 


¿Qué es mejor: 100 voltios y 1 


amperio o 1 voltio y 100 ampe- 


«corriente» y medida en amperios 
A) 


De todas formas, hay que decir 
algo más. Ambas pueden tener un 
signo (+) o (-). Normalmente hay 
un punto en el circuito llamado 
«masa» o «tierra», que se represen- 
ta por + о == y con respecto a la 
cual se miden las tensiones. Si la 
tensión es mayor que la masa, es 
positiva, y si es menor, negativa. 
Es сото la altura de las montañas, 
se toma toda con respecto al nivel 
del mar, y podemos comparar al- 
turas porque tenemos un punto 
«cero» con respecto al que pode- 
mos medir. El signo de la corriente 
se toma de otra forma. En general 
va siempre de las tensiones positi- 
vas mayores a las menores; es de- 


rios? La respuesta es que depende. 
Pero además podemos hacer com- 
paraciones gracias a la potencia, 
que es el producto de tensión por 
corriente y el resultado se mide en 
vatios (W). En el cuadro 1 apare- 
cen las fórmulas que les relacio- 
nan. Se ve que en el ejemplo la po- 
tencia es la misma en los dos casos. 
De todas formas, la potencia puede 
ser creada o consumida. Después 
volveremos sobre esto. 

Un último detalle sobre las uni- 
dades es que a veces son demasia- 
do grandes o demasiado pequeñas. 
Por eso se suelen emplear prefijos 
para simplificar la escritura. Por 
ejemplo, en lugar de decir «un mi- 
llón de vatios», decimos «un me- 
gavatio» y escribimos I MW. Ade- 


más, en electrónica, trabajaremos 
más bien con milésimas de ampe- 
rio y de vatio, que son los miliam- 
perios (se escribe «mA») y miliva- 
tios (mW). De todas formas, los 
prefijos más usados son los indica- 
dos en el cuadro 2. 


Es curioso que las abreviaturas 
de los grandes son letras mayúscu- 
las, mientras que las de los peque- 
ños son minúsculas, aunque no es 
una casualidad, sino para recor- 
darlos mejor. 


en general, los metales. La madera, 
el cristal o los plásticos son buenos 
aislantes. 


En cuanto a lo del grosor o de la 
longitud, pensemos en una co- 
rriente de agua. Cuanto más estre- 
cha sea la manguera, peor pasará 
el agua. Y, desde luego, si al agua 
le cuesta pasar, habrá que hacer 
tanto más fuerza cuanto más larga 
sea la manguera. 


A esto se le llama resistencia; y 
lo que indica es cómo le es de difi- 


Resistencia 


Hemos dicho que la corriente 
eléctrica son partículas cargadas 
que se mueven. Pero no puede ir 
igual de cómoda por todos los te- 
rrenos. Los hay más y menos agra- 
dables. A los agradables, que son 
aquellos en los que, con una ten- 
sión pequeña conseguimos со- 
rrientes más bien grandes, se les 
llama «conductores». A los que, 
por mucha tensión que les apli- 
quemos no conseguiremos corrien- 
te, se les llama «aislantes». En que 
un material sea aislante o conduc- 
tor influyen cosas como lo largo 
que sea, la superficie o la naturale- 
za del material. Así, la plata o el 
cobre son buenos conductores y, 


cil a la electricidad atravesar un 
material. Para medir esa resisten- 
cia, podemos hacer un experimen- 
to. Cogemos una barra de hierro, le 
aplicamos una tensión de 3 voltios 
y medimos la corriente. Suponga- 
mos que sale | amperio. Si le apli- 
camos ahora 15 voltios, obtene- 
mos una corriente de 5 amperios. 
Si fuesen 300 voltios, saldrían 100 
amperios. Dividiendo la tensión 
por la corriente se obtiene siempre 
el mismo número, el 3, que es el 
valor de la resistencia. Eso, bien 
dicho, es la ley de Ohm, que dice 
que «la resistencia es igual a la ten- 
sión partida por la corriente» (en el 
cuadro 3a aparecen las relaciones), 
y la unidad de resistencia son los 
ohmios (se prepresentan por 0). 


Resistencias «de verdad» 


¿Qué ocurre cuando necesita- 
mos resistencias? ¿Dónde y cómo 
se compran? ¿Son caras? Estas son 
algunas de las preguntas que apa- 
recen cuando hay que trabajar con 
resistencias y que contestaremos 
ahora. 

Lo primero que hemos de saber 
es que no se fabrican todas las re- 
sistencias posibles; sería carísimo 
de fabricar los 10.000.000 de resis- 
tencias que van desde las de 1 oh- 
mio hasta las de 10 Megaohmios 
(10 «Megas» para los amigos), y 
siempre habria alguien que necesi- 
tase una de 97,321,438 ohmios, 
que no estaría incluida en la lista, 
así que ésta no serviría para nada. 

Por otra parte, si queremos una 
resistencia de 1.500 ohmios pode- 
mos fabricarla para que salga exac- 
tamente de 1.500, pero es tremen- 
damente cara. Por el contrario, es 
muy barato fabricarlas de 1.500 
ohmios, más o menos. El «más o 
menos» quiere decir que puede va- 
riar un poco, por encima o por de- 
bajo, del valor que queramos, pero 
siempre sin pasar de determinados 
valores. Así, nos venden resisten- 
cias con «tolerancias» del 5 o del 
10 por ciento. 

Eso quiere decir que el valor de 
una resistencia de 1.500 ohmios y 
5 por ciento de tolerancia variará 
entre 1.425 y 1.575 ohmios, pero 
no 1.350 6 1.700 ohmios. Además, 
en la mayoría de los casos, los va- 
lores de la resistencia estarán más 
cerca de los 1.500 y del 10 por 
ciento, el valor estaría entre 1.350 
y 1.650 ohmios. 

Así pues, se escogen los valores 
de las resistencias de forma que, 
cada valor de resistencia más sus 
límites de tolerancia nos den todos 
los valores posibles por «década». 
Asi, la serie E12 (o del 10 por cien- 
to) llamada así por tener 12 resis- 
tencias, comprende estos valores: 

1, 1,2, 1,5, 1,8, 2,2, 2,7, 3,3, 3,9, 
4,7,5,6, 6,8 
que pueden ir multiplicados por 


10,100, 1.000, 10.000, 100.000 ó 
un millón. Veamos que, aproxi- 
madamente «recubren» todos los 
valores posibles. Por ejemplo, 3,3 
más el 10 por ciento de 3,3 es 3,63; 
y 3,9 menos el 10 por ciento es 
3,51; es decir, se recubren. Así 
ocurre con los demás valores, aun- 
que en algún caso (pocos) no se 
cumplan. 


Se fabrican series con tolerancia 
del 20 por ciento (6 valores por dé- 
cada o E6), 10 por ciento (vista an- 
tes). 5 por ciento, 2 por ciento y 1 
por ciento. La más usada es la del 5 
por ciento, cuyos valores son: 1, 

12-13, 1,516, 18, 2,9 


pues las cosas terminan marchan- 
do. 


Números y colores 


Ya sabemos cuáles son los valo- 
res posibles. Ahora bien, ¿cómo 
sabemos cuál es el valor de una re- 
sistencia? No se suelen utilizar nú- 
meros, no sea que al soldar la resis- 
tencia a la placa quede oculto el 
valor. Por eso se emplean bandas 
de colores, cada una con un signifi- 
cado. Así, las dos primeras indican 
el valor de la resistencia, la tercera 
es el multiplicador y la cuarta, la 
tolerancia. En la figura 2 aparecen 
los colores utilizados y un ejem- 
plo. 


resistir, una resistencia. Así, si una 
resistencia soporta 100 voltios y 10 
amperios eso quiere decir que debe 
disipar 1.000 vatios, vamos, una 
buena estufa. 


Nosotros no nos moveremos 
normalmente con esos números. 
Lo habitual será manejar resisten- 
cias de cuarto de vatio, medio va- 
tio, o, como mucho, uno o dos va- 
tios, aunque las haya mucho 
mayores. 


Para saber cómo de grande debe 
ser nuestra resistencia, nos basta 
con conocer la tensión o la co- 
rriente. Las fórmulas correspon- 
dientes aparecen en el cuadro 3. 


SE Figura 2. 
—NN— Símbolos de resistencias 
tolerancia 
к negro x 1 oro: 5% 
00 =? татбпх10 plata:10% | = 
naps rojo x 100 si no hay: 20 % 
amarilo=4 пагапја x 1000 
5 k тојо — violeta naranja oro 
amarillo x 10.000 
verde x 100.000 2 ES 
ч azul x 1.000.000 es de 27 Kny del 5% 
Figura 1. 
J 
CUADRO 1 CUADRO 2 
Múltiplos y submúltiplos. 
Fórmulas de potencia. Mega (M) un millón= 1.000.000 
AB Е Š Kilo (K) mi = 1.000 
= М1 (vatios = voltios x amperios) mili (m) milésima = 0,001 
Р/ (voltios = vatios//amperios) micro () millonésima = 0,000.001 CUADRO 3 
'/V (amperios = vatios/voltios) nano (п) milmillonósima=0,000.000.001 
pico (p) billonésima=0,000.000.000.001 V=R.l (voltios = ohmios х 
amperios) 
24, 2,7, 3, 3,3, 3,6, 3,9, 4,3, 4,7, Otro detalle curioso es la jerga R=VA (ohmios = 
1, 5,6, 6,2, 6,8, 7,5, 8 1 (24 del gremio. No se suele decir «cua- voltios/amperios) 
valores). tro mil setecientos ohmios», sino 
El problema suele ser que, en «cuatro К siete», ni «ocho millo- |=V/R (tensión = ; 
muchas tiendas, los valores de те- пев doscientos mil ohmios», sino voltios/ohmios) 
sistencias que tienen con toleran- «8 mega 2». Es más cómodo y que- 
cias del 5 por ciento son los valores da mejor. =12R (vatios = (amperios)? 
del 10 por ciento (los doce valores x ohmios) 
anteriores, no los 24). 
Alguien puede preguntarse, Potencia en las resistencias P=V2/R (vatios= 


¿cómo pueden funcionar los mon- 
tajes con esos «errores» del 5 o del 
10 por ciento? Bueno, pues, afor- 
tunadamente, Esos errores по sue- 
len tener gran importancia. Ade- 
más, los diseños se hacen teniendo 
en cuenta las tolerancias y, bueno, 


Al principio vimos qué era la 
potencia, y que tiene que ver con 
la energía, y el calor es una forma 
de energía. Lo que interesa ahora 
es cuánta energía, o cuánto calor, o 
cuánta potencia puede «disipar» о 


(voltios)2/6hmios) 


y alicates de 
corte y punta 
fina son 
necesarios para 
emprender la 
tarea del 
montaje. 


colector 
base LE 
--Ы-- simbolo del diodo 
тео HA diodo real 
+ 
colector aquí debe haber 0,6 voltios más 
(0,2 en el germanio) 
base pnp 
emisor 
Figura 4. Figura 3a. 
2) 
Es 
condensador 
= 
=: == positivo 
T electrolíticos 
Continuas 
positivo 
Cuadro 4. Figura 3b. 


Resistencias ajustables 


A veces, por ejemplo en los 
mandos de volumen, necesitamos 
poder variar el valor de una resis- 
tencia pero sin cambiar el compo- 
nente. Para ello se emplean los po- 
tenciómetros o resistencias ajusta- 
bles. Un potenciómetro tiene tres 
patas y un mango (en otros, más 
baratos, el mango se sustituye por 
una muesca en la que se encaja un 
destornillador, a éstos se les llama 
«potenciómetros de ajuste»). 

La idea es que hay una resisten- 
cia entre las dos patas de los extre- 
mos, pero no hace falta que la re- 


corramos por completo, sino que 
podemos salir por la del centro. El 
valor de la resistencia se elige gi- 
rando el mango y midiendo o bien 
observando el resultado del circui- 
to. Los valores son los mismos que 
los de las resistencias de la Е12, y 
no tiene sentido hablar de toleran- 
cia. Las potencias de los normales 
suelen ser de 1/4 vatio o de 1/2 va- 
tio y, en general, no dejan pasar 
demasiada corriente. 


Capacidad 


Para hacernos una idea de lo que 
es la capadidad, pensemos en un 


globo. A medida que lo vamos in- 
flando, es más difícil meter aire. Si 
el globo fuese muy fuerte, llegaría 
un momento en que no podriamos 
seguir hinchándolo. Algo parecido 
ocurre con el fenómeno de la capa- 
cidad, almacenamos energía eléc- 
trica que luego podemos utilizar 
para algo. La pega es que podemos 
almacenar bastante poca. 


Uno de los problemas de las ca- 
pacidades es que aquí no tenemos 
una relación tan clara entre ten- 
sión y corriente como en las resis- 
tencias. Así, un condensador no 
deja pasar la corriente elećtrica 
«continua» (que es de la que he- 


| 


Alternas 


Figura 3c. 


Alterna después|de 
pasar por diodo 


Figura 3d. 


cara de circuito 


077 


Figura 5a. 


cara de componentes 


Figura 5b. 


mos hablado hasta ahora) y. en 
cuanto a la tensión, lo único que le 
importa es que no le apliquemos 
más tensión de la que puede 
aguantar, o reventaría como un 
globo demasiado hinchado. 


La unidad de medida de capaci- 
dades es el Faradio, cuyo único de- 
fecto es que es enorme. Así que na- 
die pida un condensador de 600 ó 
700 faradios, so pena de provocar 
muchas carcajadas. Normalmente 
los condensadores se miden en mi- 
crofaradios, nanofaradios y picofa- 
radios. Incluso,se llega a tomar el 
picofaradio como unidad para los 
más pequeños, y asi se habla de 


2209 Circuito 


Figura 6. 


1 ETTI 
1 


LM 78M05 (desde arriba) 


CUIDADO. ESTA PLACA 


GND ESTA CONECTADA A 
LA PATA CENTRAL 
Entrada — Salida 


Figura 6b. 


condensadores de 22 K, que no son 
22.000 faradios, sino 22.000 pico- 
faradios. 


Condensadores 


Los condensadores tienen un 
problema parecido a las resisten- 
cias en lo que se refiere a la identi- 
ficación. Por desgracia no hay un 
código de colores, sino varios, y 
hay fabricantes que se limitan a es- 
cribir el valor de la capacidad y, 
debajo, el valor de la tensión máxi- 
ma. Asi que lo mejor es fijarse bien 
en la tienda. De todas formas, se 
aprende rápido a distinguirlos. 


Hay unos condensadores muy 
particulares, que son los electrolí- 
ticos. Su ventaja es que son los que 
permiten mayores capacidades; su 
pega es que sólo trabajan si se 
sienten a gusto. Para ello, hay que 
enchufarlos de forma que uno de 
sus terminales, el positivo, esté a 
mayor tensión que el otro. De no 
ser así, pueden enfadarse mucho y 
llegan a estal!.1. De todas formas, 
los fabricantes sí dejan muy claro 
cuál es el positivo, poniendo un 
signo (+) cerca, о un (-) cerca del 
negativo, o un estrechamiento en 
el positivo. Si no se ve claro, es 
conveniente preguntarlo n la 


tienda, y fijarse bien en el esque- 
ma. De todas formas, en el cuadro 
4 se dan los símbolos de los con- 
densadores que más se utilizan. 

Ultimo detalle sobre los electro- 
líticos. Si van a trabajar a 8 voltios, 
es mejor usar uno que aguante 16 
que no uno que aguante 9, y mejor 
aún que aguante 25 (pero sin pa- 
sarse). 


Diodos 


Antes dijimos que los materiales 
pueden ser conductores o aislan- 
tes. Bueno, pues como siempre 
hay gente original, hay unos que 
no son ni lo uno ni lo otro. Condu- 
cen mejor que un aislante y peor 
que un conductor, y se les llama 
«semiconductores». Su gran venta- 
ja es que, cuando se sienten a gus- 
to, pueden conducir tan bien como 
un conductor, pero si se enfadan, 
no dejan pasar nada. Por cierto 
que el proceso de hacer que se 
sientan bien o mal se llama «pola- 
rización», y normalmente depende 
de cómo les apliquemos ciertas 
tensiones y de dónde las aplique- 
mos. 

Los materiales semiconductores 
más empleados son el germanio, 
que fue el primero que se empleó, 
y el silicio, que es el más usado hoy 
día (también en los chips), y el ele- 
mento semiconductor más sencillo 
es el «diodo». 

Un diodo es algo que, según cuál 
sea su polarización, deja pasar la 
corriente o no. Así (ver la figura 
3a), si tenemos un diodo de silicio, 
sólo conducirá si el terminal que 
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sistema de disco jamás desarrollado 
para el Spectrum. 
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NO tiene la raya está a 0,6 voltios 
más que el que SI tiene la raya. De 
todas formas, viendo el símbolo 
del diodo, queda muy claro en qué 
sentido conduce (en el de la fle- 
cha). Esta tensión de 0,6 voltios es 
aproximadamente igual para todos 
los diodos de silicio y se le llama 
«tensión de conducción». Para los 
de germanio, es de 0,2 voltios. 


Continua y alterna 


Normalmente se han usado los 
diodos сото  «rectificadores». 
Veamos qué es eso. Hasta ahora 
hemos trabajado con tensiones y 
corrientes «continuas», es decir, si 
una tensión es de 5 voltios, siem- 
pre será de 5 voltios, y si una co- 
rriente es de 0,3 amperios, siempre 
será de 0,3 amperios. Pero ese no 
es el caso real. Si mirásemos cómo 
es la tensión de' los enchufes de 
casa (o la corriente que podemos 
sacar de ellos) veríamos que su va- 
lor cambia constantemente (por 
eso se le llama alterna), de forma 
que unas veces es positiva y otras 
negativa (exactamente varia 50 ve- 
ces por segundo), y esto se hace 
porque es más barato para trans- 
portarla. El problema es que la 
mayoría de los aparatos que util 
zan dispositivos electrónicos nece- 
sitan tensiones «de alimentación» 
continuas, y aquí es donde entran 
los diodos. Si metemos una señal 
(corriente o tensión) alterna a un 
diodo, ésto sólo conducirá mien- 
tras que sea positiva, es decir, 
mientras que él esté «polarizado 
en directa», o sea, trabajando a 
gusto. Cuando deje de estar traba- 
jando a gusto, se enfada, polariza 
en «inversa» y no deja pasar nada. 
De esta forma podemos conseguir 
una señal positiva o «rectificada» a 
partir de una alterna (figura 3b). 


Transistores y circuitos 
integrados 


Un transistor es un grifo de elec- 
tricidad hecho con materiales se- 
miconductores. Como necesita po- 
larización para trabajar con agra- 
do, podemos hacer que trabaje 
como queramos, y, lo que es me- 


jor, puede amplificar señales pe- 
queñas a grandes. Por eso se le Па- 
ma «dispositivo activo». Como 
cada vez se pueden hacer más pe- 
queños, pueden juntarse muchos, 
haciendo así «circuitos integra- 
dos», que hacen cosas más o me- 
nos complicadas, a bajo precio. 
Luego veremos un ejemplo. 

Eso sí, hay que tener cuidado 
con los transistores. Son de varias 
clases, con diferentes misiones se- 
gún el tipo. Hay unos, los p-n-p, 
que trabajan con tensiones negati- 
vas, otros, los n-p-n, trabajan con 
positivas. En cualquier caso, tie- 
nen normalmente tres terminales, 
emisor, base y colector. Como hay 
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muchos tipos distintos, lo mejor es 
preguntar en la tienda cuál es cada 
uno (figura 4). 


La placa 


Al principio habíamos dicho 
que era el sitio donde viven los 
componentes. Hace años no se uti- 
lizaban, sino que se conectaban 
mediante cables. Lo que pasa es 
que es más cómodo y seguro usar 
placas. 

Suelen ser de baquelita o de fi- 
bra de vidrio, y llevan una cara re- 
cubierta de cobre. También las 
hay de doble cara y multicapa, y 
otras cosas raras que no nos intere- 
san ahora. A la cara de cobre se le 
llama «cara de circuito» y es donde 
se hacen las conexiones. La otra es. 
la de componentes, que es donde 
se ponen las resistencias, los con- 
densadores, etc., y se ponen ahí 
para evitar que molesten al otro 
lado (ver figura 5). 


Si nos queremos hacer una, el 
proceso más barato y senci!lo es el 
siguiente: 

— Limpiamos bien la cara de 
cobre. 

— Una vez seca, pintamos con 
un rotulador resistente al agua 
aquellas partes que queremos que 
sigan cubiertas de cobre (es decir, 
las conexiones). 

— Sumergimos la placa en una 
disolución de cloruro férrico (se 
encuentra en tiendas de electróni- 
ca) y, si puede ser, preferiblemente 
caliente y en un recipiente que no 
se utilice para otra cosa, porque los 
estropea bastante. Al cabo de un 
rato, más bien largo, se habrá des- 
prendido el cobre que no nos inte- 
resa. 

— Quitamos los restos de rotu- 
lador y taladramos la placa en los 
puntos donde queremos colocar 
los componentes. Ya esta hecha la 
placa. 

También se pueden utilizar 
otros productos en lugar de cloruro 
férrico, pero son más caros y peli- 
grosos. Otra posibilidad es com- 
prar placas ya hechas (tipo uni- 
print) que ya tienen hechos con- 
tactos, de forma que sólo hay que 
soldar los componentes y unirlos 
por los cables. 


Soldar 


Para soldar componentes se em- 
plea un soldador tipo «lápiz» de 
unos 25 vatios de potencia, que no 
son caros. No es conveniente usar 
los soldadores de pistola, suelen 
ser demasiado potentes y pueden 
dañar los componentes. 

Algo que no hay que olvidar es 
que el soldador se calienta lo sufi- 
ciente para producir quemaduras 
serias, o provocar incendios, así 
que interesa tener un soporte ade- 
cuado para él, y no dejarlo nunca 
enchufado, ni cogerlo por la punta 
o apoyarse en él. En cuanto al esta- 
ño, es un compuesto de estaño, 
plomo y resinas para facilitar la fu- 
sión. 

Lo primero que hay que hacer 
es, con el soldador caliente, fundir 
un poco de estaño sobre la punta 
del soldador, de forma que ésta 
quede estañada y protegida. Hay 


que evitąr rayar la punta, o cepi- 
Ilarla o limarla cuando esté calien- 
te. 

Para soldar componentes a la 
placa, calentamos la patilla del 
componente con el soldador y 
aplicamos el estaño al terminal, no 
al soldador. El estaño fundido debe 
quedar fluido, y solidificarse sin 
empañarse o de forma que quede 
con partes «distintas». Eso puede 
ser una mala soldadura. 

Cuando se suelden transistores 
hay que tener cuidado de que no se 
calienten demasiado, pues podrian 
dañarse. Para evitarlo, además de 
hacer rápidamente la soldadura, es 
conveniente coger el terminal que 
estemos soldando con unos alica- 
tes de punta fina, de forma que sir- 
van para «radiar» el calor. En 
cuanto a los integrados, en ocasio- 
nes se usan «zócalos» para poder 
cambiar un integrado averiado sin 
necesidad de utilizar el soldador. 
La idea es soldar el zócalo y luego 


«enchufar» el integrado en el zóca- 
lo. Por supuesto, la sustitución de 
integrados o de cualquier otro 
componente debe hacerse siempre 
cuando el circuito esté desconecta- 
do, sin tensión ni corriente. 


Ejemplo 


Como ejemplo de todo lo visto, 
vamos a diseñar una fuente senci- 
lla para alimentar un circuito con 
puertas lógicas TTL. El circuito 
aparece en la figura 6. Los elemen- 
tos que aparecen en él (están nu- 
merados) son: 


1, Transformador: su misión 
es que los 220 voltios de la red pa- 
sen a ser los 9 que necesitamos. 


2. Puente de diodos: en lugar 
de usar 4 diodos separados, usa- 
mos 4 juntos. Las dos patillas con 
«~» se conectan a las salidas del 
transformador. El (+) se conecta al 


condensador Cl, y el (-) será la 
masa de todo el conjunto. 

3. Condensador: su misión es 
hacer que la señal sea algo más 
continua y dar corriente. 

4. Regulador: éste es el que 
hace todo el trabajo sucio, y es un 
circuito integrado. 

5. Condensador de salida: es 
para mejorar el funcionamiento. 

Datos de la fuente: tensión de sa- 
lida: 5 V; corriente máxima: 0.400 
A. 

Componentes: 1 transformador 
de 220 V a9 V y0,720 A; I puente 
rectificador; corriente: 0,5 A (para 
más seguridad), tensión: 20 voltios. 

Condensadores: Cl: 100 F, 16 
voltios (6 25); C2: 0,01 F, 9/16 vol- 
tios. Los dos son electrolíticos. 

1 regulador integrado 
1/М78М05 (en la figura se da el pa- 
tillaje). 
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INFINITA PRECIS 


Convocamos en este número a 
todos aquellos que amen las mate- 
máticas, o quieran aprender algo 
sobre números gracias a su Spec- 
trum. Vamos a analizar los siste- 
mas artificiales de manejo de nú- 
meros enteros con artimética de in- 
finita precisión. 


La aritmética humana: 
contando con los dedos 


Para poder enseñar a un ordena- 
dor a contar bien (qué horrendo es 
que 40000+40000 valga 8E4), pri- 
mero hemos de comprender cómo 
lo hacemos NOSOTROS. 

Cuando los humanos utilizamos 
números largos, ponemos una cifra 
detrás de otra hasta rellenar cade- 
nas muy largas de dígitos que van 
del 0 al 9. Esto viene determinado 
naturalmente porque tenemos un 
total de diez dedos en las manos, y 
nos es muy fácil representar una 
cifra por medio de dichos diez de- 
dos. 

Un ordenador, sin embargo, 
cuenta con «dedos» que pueden 
ponerse en una o dos posiciones, 
los bits, usando la aritmética bina- 
ria. Si los hombres condideráse- 
mos las dos posiciones que pueden 
tener los dedos, doblados o exten- 
didos, podríamos contar desde O 
hasta 1023. Pero nuestro cerebro 
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es demasiado complejo para ello, y 
por eso prefiere el sistema de con- 
tar el número de dedos extendidos. 

Si queremos que un ordenador 
cuente en números muy grandes, 
nos bastaría con dividir estos en 
potencias de 256, con lo que po- 
dríamos asignar a cada cifra «hexa- 
quincuagesimobicentesimal» un 
caracter del conjunto ASCII. Pero 
esto presenta un problema curioso: 
para tomar un número de teclado, 
o imprimir un número en la panta- 
lla, podríamos perder muchas ve- 
ces más tiempo que haciendo una 
división, si es que llegásemos a de- 
sarrollar el sistema adecuado para 
hacerlo. 

Es por ello que nos resulta más 
cómodo utilizar tiras de caracteres 
en los que cada caracter represente 
exactamente la cifra que sea. Es 
decir, la tira “1234” representará 
el número 1234. De este modo es 
muy fácil intercambiar datos entre 
el ordenador y nosotros, y, como 
veremos, es igualmente fácil ope- 
rar con estos números, ya que lo 
haremos exactamente igual que lo 
hacemos nosotros al usar lápiz y 
papel para sumar, restar, multipli- 
car o dividir. 

Pasamos, pues, a explicar cada 
una de las operaciones elementales 
en nuestra aritmética para ordena- 
dor. 


Listado 2 


La suma y la resta: poner 
un número encima de otro 


Como ya hemos dicho antes, el 
modo de operar con nuestros nú- 
meros largos es el mismo modo en 
que lo hacemos con un lápiz y pa- 
pel. Por tanto, hagamos una suma. 

Vamos a sumar 123454567890. 
Primero escribimos un número en- 
cima del otro, haciendo coincidir 
las cifras de igual peso (figura 1). 

A continuación sumamos las 
primeras cifras a estribor (por la 
derecha) (figura 2). 

Luego la siguiente (figura 3). 

El uno que nos ha sobrado lo 


12345 
+ 567890 


Figura 1 


de 
12345 
+ 567890 


R] 
Figura 2 


12345 
+ 567890 


35-1 


Figura 3 


2000 IF LEN a$<LEN b$ 
s$=a$: LET a$=b$: LET 
2010 LET 11=LEN a$: 

LET 1=LEN b$: 


LET c$="": 
LET a2=0: 


3000 LET 11=LEN a$: 
IF 1141 OR 


THEN "EET z 
b$=s$ 


FOR 1=0 


LET 1=LEN b$ 
(11-1 AND a$<b$) TH 


18 171 

2020 LET ai=VAL a$(11-i1)+VAL b$( 
1-i)+a2: LET a2=INT (a1/10): LET 
c$=STR$ (а1-10%а2)+с$: NEXT i 
2030 FOR 1=1 ТО 11-1: LET al=VA 
L a$(11-i)+a2: LET a2=INT (а1/10 
): LET c$=STR$ (al-a2k10)+c$: МЕ 
XT із IF a29THEN./ LET c$="1"*c€ 
2040 RETURN 


EN LET c$="E": RETURN 

3010 LET a2=0: LET c$="": FOR i= 
ОО: 11 

3020 LET a1=VAL a$(11-1)-VAL b$( 
1-i)-a2: LET а2=а1<О: LET c$=STR 
$ (а1+10Жа2) +сФ: NEXT i 

3030 FOR i=1 TO 11-1: LET ai=VAL 


a$(11-i)-a2: LET aZ=a1<0: LET c 
$=STR$ (а1+10%а2)+с$: NEXT i 


3040 FOR ісі TO LEN c$-i: IF сФ( 
1)<>"0" THEN RETURN 
3050 LET c$=c$(2 TO ): NEXT i: R 


ETURN 


ION РЕМ BASIC 


1 
12345 
+ 567890 


235 > 1 


Figura 4 


12345 
+ 567890 


580235 


Figura 5 


metemos en la siguiente columna 
para sumarlo tambićn (figura 4). 

Y asi sucesivamente, llegando al 
resultado (figura 5). 

Evidentemente, si al sumar las 
últimas cifras nos hubiese sobrado 
otro uno, se lo habríamos añadido 
al resultado por la izquierda. 

Cuando queremos que el orde- 
nador calcule una suma nos en- 
contramos con que hay tres partes 
distintas a tratar, según se ve en el 
listado 1: 

a)La suma de las parejas de ci- 
fras coincidentes más lo que nos 
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sobrase de la suma de la pareja an- 
terior (líneas 2010 y 2020). 

b) La suma de las cifras más al- 
tas del número más largo (las que 
no tienen pareja en el otro núme- 
ro) más lo que nos sobrase de la 
suma anterior (línea 2030). 

c) Añadir lo que sobrase de las 
etapas anteriores como primera ci- 
fra del resultado (IF a2 THEN 
LET с$=“1”+с$). 

Todo ello lo podemos ver re- 
suelto en el listado 1, que es una 
subrutina que suma el número 
contenido en a$ con el contenido 
en b$, devolviendo el resultado en 
с$. 

En el listado 2 podemos ver 
cómo se resuelve la resta por un 
sistema similar. Sólo hemos de ha- 
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cer dos observaciones al respecto. 
Como estamos trabajando con nú- 
meros enteros positivos, intentar 
restar un número de otro menor ha 
de considerarse un error, y por ello 
la subrutina devuelve como resul- 
tado la tira “E”. Este resultado 
también se utiliza en la división. 
Otro punto interesante a resaltar es 
que, antes de abandonar la rutina 
de resta, se eliminan todos los ce- 
ros a la izquierda del resultado, 
coo haría cualquier persona decen- 
te. 


La multiplicación: ir paso a 
paso hacia la izquierda: 


Siguiendo con el sistema de obli- 
gar al ordenador a que trabaje 


HEN LET b$= 


ali=a3*VAL r 


GO TO 4050 
4030 LET a$=c$: 


$: NEXT i 


b$ 
4530 RETURN 


4000 LET ki=LEN r$: LET k=LEN ms] 


FOR ¿=k TO 1 ST 
AL m$(3) 
4020 60 SUB 4500:0YF b$="0" 


FOR ісі TO К-у: 


4520 IF a2 THEN LET b$=STR$ a2+ 


4530 RETURN 


2 IF kiek THEN LET s$=m$: LET m 5000 LET k= 
$=r$: LET r$=s$: LET a2=k: LET К : LET n$="" 
-Е1: 


D m$tr$) TH 
N 


5010 LET as 
$(k1+1 TO ) 
5020 GO SUB 
IF k=0 THEN 


THEN 


LET b$=b$+"0": NEXT і: 60 SUB 20| |5030 LET a$ 
00 +: =m$(2 TO ): 
4050 NEXT j: RETURN 5040 IF n$( 
4500 LET a2=0: LET b$="" IF a3= $(2 TO >: G 
O THEN LET b$="0": RETURN 5050 RETURN 
4510 FOR i=k1 TO 1 STEP -1: LET 5500 FOR n= 
al=a3kVAL r$(i)+a2: LET a2=INT (| |5-п: 60 SUB 
al/10): КЕТ b$=STR$ (а1-10жа2) +Ь F c$="E" TH 


a$ 
5510 IF c$= 


=] 5530 RETURN 


4500>LET а2= 


4510 FOR i=ki TO 1 STEP -1: 


al/10): LET b$=STR$ (а1-10жа2) +b 
$: NEXT i 

4520 IF a2 THEN LET b$=STR$ a2+ 
b$ 


5520 LET a$=c$: 


LET b$="":IF az 
"О": RETURN 


от 


LET 


$(1)+a2: LET a2=INT ( 


LEN m$: LET ki=LEN r$ 
3 IF Е<кі OR (k=kl AN 
EN LET n$="0": RETUR 


=m$( TO k1): LET mé=m 
5500: LET k=LEN m$: 
-60 TO 5040 
=a$+m$( TO 1): 
GO TO 5020 
1)="0" THEN LET n5=n 
O TO 5040 


LET m$ 


3 TO A STEP >: LET a 
4500: GO SUB 3000: I 
EN NEXT п: LET п-О: 


“о” 


THEN LET с% 
LET n$=n$+STR$ п 


==! 


como nosotros lo hacemos, vamos 
a descubrir cómo multiplicamos. 
Decimos descubrir porque la 
mayor parte de la gente no se da 
cuenta de cómo lo hace. 

Cojamos dos números largos, 
por ejemplo el 3452 y el 5606721. 
El primer paso que realizamos es 
poner sobre el papel los dos núme- 


5606721 
x 3452 


Figura 6 
ros, uno debajo del otro con el más 
corto debajo (figura 6). 

El sistema que utilizamos es ir 
multiplicando cada una de las ci- 
fras del número de abajo por el nú- 
mero de arriba. Cada vez que reali- 
zamos una de estas multiplicacio- 
nes, ponemos el número siguiente 
un paso más a la izquierda (figura 
7). 


5606721 
х 3452 


11213442 
28033605 
22426884 
16820163 


Uno de los temas que más tinta 
ha hecho correr entre los teóricos 
matemáticos, es el de los núme- 
ros primos, números que presen- 
tan una serie de propiedades es- 
pecificas que los hacen muy inte- 
resantes para aquellos que gus- 
tan de los problemas matemáti- 
cos incomprensibles. 

Un número primo es un núme- 
ro natural (entero y positivo) que 
sólo puede ser dividido por sí 
mismo y por la unidad. Tal es el 
caso del número 11, y no lo es el 
6, que es divisible por 2 y 3. Evi- 
dentemente, el primer asunto in- 
teresante relacionado con los p 
mos que nos surge es el de identi- 
ficarlos. Un primer modo de ha- 
cerlo es el de tomar el nimero 
que queremos saber si es primo о 
compuesto (no primo) y dividirlo 


Este avance hacia la izquierda es 
equivalente a multiplicar por 10 
varias veces, como se ve en la figu- 
ra8. 

Como colofón, sumamos dichos 
productos parciales, de lo que re- 
sulta la solución que buscabamos. 


5606721 
x 3452 


11213442 
280336050 
2242688400 


16820163000 


19354400892 
Figura 8 


Antes hemos creado una rutina 
que sumaba dos números, por lo 
que modificaremos algo el proceso 
que realizamos sobre el papel. La 
rutina que escribamos ira suman- 
do los productos parciales según 
los vaya generando, en vez de es- 
perar al final para sumarlos todos 
juntos. 

En cuanto a la multiplicación 
por un sólo dígito, podemos ver en 
el listado 3, en las líneas 4500 a 
4530 la rutina que multiplica el 
número de una sola cifra conteni- 
do en la variable a3 por el número 


entre todos los números menores 
que él para ver si entre dichas di- 
visiones hay alguna que no deje 
resto. Este es un método burdo y 
basto, ya que sabemos que si ип 
número es par no puede dividir a 
uno impar, por ejemplo. Investi- 
gando sobre esta idea, los mate- 
máticos llegaron antiguamente a 
conclusiones interesantes para 
saber si un número es divisible 
por una serie concreta de ellos. 
Cabe contar entre dichas conclu- 
siones que un número es divisible 
si su última cifra es par, 
ible por tres si la suma de 
sus cifras también lo es, es divisi- 
ble por cinco si su última cifra es 
00 5, etcétera 

Otro problema curioso fue el 
de elaborar una lista de números 
primos. El primero en dar una 


largo en r$, devolviendo el resulta- 
do en b$. Esta rutina es tan sencilla 
de entender que no daremos expli- 
caciones más profundas. 

La rutina principal de multipli- 
cación, contenida en las líneas 
4000 a 4050, realiza exactamente 
lo que hemos dicho. El bucle FOR 
ЕК TO I STEP -1 va realizando la 
multiplicación cira a cifra de m$ 
por'r$ por medio de sucesivas lla- 
madas a la subrutina en 4500. El 
resultado, en b$, se suma al resul- 
tado anterior, en c$ por medio de 
la rutina de suma que creamos an- 
tes en lal la línea 2000. Así pues, la 
función que desempeña dicha ruti- 
na es devolver un valor c$=m$*n$. 


La división por el sistema 
de prueba y sigue 


El proceso de división que va- 
mos a analizar es el de división en- 
tera, que es la que divide un núme- 
ro por otro devolviendo un cocien- 
te y un resto. Nosotros desarrolla- 
remos una única rutina que de- 
vuelva ambos resultados, ya que es 
más cómodo. 


4653253654 | 345 
506 ссы 


Figura 9 
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solución sencilla y elegante fue el 
griego Eratostenes, que inventó 
la «criba» de su mismo nombre. 
Esta consiste en escribir una lista 
de números del 1 al número más 
grande que queramos estudiar. 
Empezando por el dos, contare- 
mos a partir del número siguien- 
te de dos en dos, tachando cada 
vez el número en el que se acabe 
la cuenta. A continuación se 
toma el siguiente no tachado y se 
cuenta en la cantidad que él indi- 
que, tachando de nuevo los nú- 
meros en que paremos. De este 
modo, cuando no queden más 
números sin tachar a continua- 
ción del último utilizado, los que 
nos queden sin rayajo encima 
formarán la lista de primos bus- 
cada. Este método, realizado con 
lápiz y papel, deja de ser práctico 


Para dividir un número por 
otro, ponemos el dividendo у, a 
continuación, el divisor metido en 
una caja (figura 9). 


El sistema que seguimos es el de 
probar a ver si podemos dividir las 


4653253654 | 345 
345 


== 1 


120 
Figura 10 


primeras cifras del dividendo, en 
un número igual'a las del divisor, 
por este último. Si es posible, se 
realiza la división y el cociente se 
pone bajo el divisor, como se 
muestra en la figura 10. 


Esto se repite con el número for- 
mado por las cifras del resto ante- 
rior y las cifras no utilizadas hasta 
el momento (figura 11). 


Para hallar estas divisiones in- 
termedias nos basamos en la bús- 
queda de un número entre 0 y 9 tal 
que multiplicado por el divisor de 
un número menor que las cifras se- 
leccionadas y tal que el divisor 
multiplicado por el siguiente nú- 


a partir del número 100, y no re- 
sulta interesante para saber si un 
número concreto es primo. 

La siguiente cuestión que se 
planteó es una consecuencia ló- 
gica del uso de la criba de Era- 
tostenes. Si hubiese un número 
finito de primos, resultaría inte- 
resante hacer una criba todo lo 
grande que se precisase y elabo- 
raruna lista de primos que se pu- 
blicaría con tapas de oro (es un 
decir). Fue el famoso Euclides el 
que demostró de un modo defini- 
tivo que el conjunto de primos es 
infinito, lo que echó al traste las 
esperanzas de muchos matemá- 
ticos (y editores). La prueba es 
muy sencilla, y está basada en 
que, si sumamos 1 a un número 
A que es múltiplo dé otro número 
B, el número resultante, C, no es 


4653253654 | 345 
345 13487691 = cocien- 


te 


1203253654 
-1035 


168253654 
-1380 


30253654 
-2760 


2653654 
-2415 


238654 
-2070 


31654 
-3105 


604 2 
-345 


RESTO=259 


Figura 11 


mero sea mayor que ellas, El ser 
humano, que es muy intuitivo, uti- 
liza algoritmos aparentemente 
sencillos para hallar rápidamente 
el número de una cifra que preci- 


Z nA 


múltiplo de B (salvo si B es la 
unidad). Así pues, supongamos 
que disponemos de una lista de 
primos. Multiplicando todos en- 
tre sí (salvo el 1), nos da un nú- 
mero que es múltiplo de todos 
ellos. Sumando la unidad a este 
resultado, tendremos otro núme- 
ro que no es múltiplo de ninguno 
de ellos. Este número puede ser 
primo, en cuyo caso lo unimos a 
la lista. Si no es primo, entonces 
existen al menos dos números 
primos menores que él, que le di- 
viden, en cuyo caso los uniremos 
a la lista. Con esta ampliada de 
este modo, repetimos la opera- 
ción, volviéndose a ampliar de 
nuevo. Como esto es cierto siem- 
pre, entonces la lista nunca esta- 
ría cerrada, y por tanto es infini- 
ta. 


samos, pero esto es dificil de imitar 
por un ordenador. Por ello, en ćl 
usaremos un sistema de búsqueda 
iterativo, en el que probaremos 
con los números del 9 al 1 en este 
orden hasta que encontremos el 
adecuado. Para ello, habremos de 
probar con cada uno a multiplicar- 
lo por el divisor, por lo que hare- 
mos uso de la subrutina en la línea 
4500 relacionada con la multipli- 
cación. 

A continuación habremos de ver 
el resultado de restar dicho pro- 
ducto de las cifras seleccionadas 
del dividendo, para lo que usare- 
mos la rutina de resta en 3000. El 
valor devuelto “E” por ella nos 
servirá para probar si el número de 
una cifra elegido es válido, o hay 
que probar con otro. 

En el listado 4 podemos ver la 
rutina completa de división, que 
realiza la de m$ entre rS, dejando 
el cociente en n$ y el resto en c$. 
Se ha dividido en dos bloques, para 
su mejor comprensión. El primero, 
líneas 5000 a 5040, se encarga de 
la repetitiva labor de ir elaborando 
el resultado a partir de lo que le de- 
vuelve la rutina en las líneas 5500 
a 5530, que es la encargada de rea- 
lizar cada una de las pequeñas di- 
visiones parciales. 


Ante tal prueba de fuerza, se 
decidió olvidar por completo la 
cuestión de conocer todos los pri- 
mos que existen, y se plantearon 
dos nuevos problemas: descubrir 
algoritmos útiles y rápidos que 
permitan descubrir si un número 
es primo, problema que trasvasa- 
mos a los lectores por medio de 
este concurso; y descubrir núme- 
ros primos muy gordos, lo que en 
Estados Unidos hace furor (como 
todo lo que tiene que ver con «lo 
más grande», «lo más largo», 
etc.) entre los programadores de 
ordenadores. El récord actual, 
que sepamos en esta redacción, 
está en un número primo de 
39.751 cifras de la forma 2 n-1, 
descubierto en la conocida Uni- 
versidad de Harvard. 


SHERLOCK 


Melbourne House 
Spectrum 48 K 


Para todos aquellos que tienen 
vocación de detective y les apasio- 
nen los relatos de Agatha Christie 
y Sherlock Holmes, Philip Mit- 
chell, ya conocido por ser el crea- 
dor del famoso juego del «Hobbit» 
nos deleita ahora con una nueva 
aventura conversacional basada en 


Baker Street: la calle 
donde vive nuestro 
héroe y uno de los 
primeros sitios donde - 
ponemos a prueba el 
ingenio. 


las increíbles hazañas del inefable 
Sherlock. 

El juego, al igual que el Hobbit, 
está desarrollado en inglés y per- 
mite al jugador conversar, hacer 
preguntas e incluso discutir las 
conclusiones que va presentando 
el programa, aunque esto, en prin- 
cipio, puede presentar algunos in- 
convenientes a los jugadores que 
no dominen bien el inglés. 

El objetivo del juego como po- 
déis suponer es descubrir al asesi- 


El recibidor de la casa 
de Sherlock Holmes 
es el primer paso para 
empezar nuestra 
aventura. 


A A 


no de unos crímenes, para ello ten- 
drás que tener las ideas muy claras, 
interrogar a sospechosos, hacer de- 
ducciones y estudiar las pistas que 
vayas encontrando. 


La pantalla aparece dividida en 
dos zonas, en la parte superior va 
apareciendo el texto que explica lo 
que ocurre en ese momento y los 
gráficos, y la parte inferior (separa- 
das por un reloj que indica el tiem- 
po relativo en la aventura) es don- 
de introduces tus preguntas y con- 
clusiones. 


Junto al programa viene tam- 
bićn una hoja que puede resultar 
muy útil a la hora de deducir pis- 
tas, ya que se refiere a itinerarios 
del metro con horas de llegada y de 
salida a los lugares en los que se 
centra la aventura. 


Las pantallas gráficas animan la 
acción del juego y nos sitúan en el 
ambiente en el que se desarrolla la 
acción, algunas veces incluso nos 
dan pistas o despiertan inquietudes 
sobre determinado hechos. 


Cuando no tengas pistas o quie- 
ras consultar algo puedes recurrira 
tu viejo amigo Watson que te dará 
información y que siempre te 
acompañará donde quiera que 
vayas. 


Control: Teclado. 
Jugadores: Uno. 
Gráficos: Resultan atracti- 
vos al aparecer al lado del 
texto y situarnos en el lugar 
de los hechos. 

Sonido: No tiene. 

Nivel de dificultad: En gene- 
ral es bastante elevado. 
Originalidad: Aunque ya 
existen precedentes similares 
en el mercado, la idea en la 
que se basa es original. 
Conclusión: El juego es inte- 
resante pero puede resultar 
complicado sobre todos a 
aquellos que no dominen 
bien el inglés. 


TE AAA 
THE WAY OF THE EXPLODIGN FIST 


El primer combate se realiza 
en el campo y constituye el 
desafío inicial de todo 


aspirante a karateka. 


En los últimos tiempos los jue- 
gos de lucha están adquiriendo 
cada día un mayor auge en video- 


juegos y, dentro de éstos podemos 
encuadrar a FIST, un programa de 
karate con un objetivo a seguir: El 
de derribar contrarios, sólo así po- 
drás pasar a una categoría mayor y 
enfrentarte a otros contrincantes 
más hábiles y rápidos. Para conse- 
guirlo, deberás tener un perfecto 
dominio tanto en los golpes como 
en la defensa si no quieres verte 
sorprendido por uno de los ataques 
del contrario que pueden ser a ve- 
ces espectaculares y si alguno de 
los dos contendientes logra llegar 
antes de este tiempo a la puntua- 
ción de dos ipones (cada ipón se 
representa como una luna) vence 
el combate; el sistema de puntua- 
ción se realiza en función de la di- 
ficultad del golpe y varía de medio 
a un ipón. 


En el caso que quieran partici- 
par dos jugadores el programa 
ofrece la oportunidad de enfrentar- 
los, esto crea una gran rivalidad 
entre ellos y hace más interesante 
la competición. El juego puede ser 
controlado tanto por el teclado 
(que puede ser redefinido) como 
porjoystick. 


Los gráficos que aparecen de 
fondo no resultan espectaculares, 
pero esto no resta al programa in- 
terés, ya que no juegan un papel 
tan importante como la definición 


Una vez dentro de la mansión 
del Buda siguen los 
combates, pero esta vez 
contra un contrincante más 
temible. 


de los movimientos de los karate- 
kas y la rapidez con que se reali- 
zan. 


La dificultad, como es lógico, 
aumenta a medida que vas ganan- 
do combates, pero para subir de 
una categoría a otra (novicio, pri- 
mer dan, segundo dan, etc.), ten- 
drás que ganar dos veces al mismo 
contrincante. 


Al contrario que en otras versio- 
nes el objetivo de este juego se cen- 
tra solamente en la propia lucha y 
habilidad de cada jugador para ba- 
tir al contrario y no incluye otros 
obstáculos que dificulten el juego, 
sin embargo, la rivalidad que se 
crea entre los dos jugadores es mo- 
tivo suficiente para que la diver- 
sión esté asegurada. 


TE A A — 


En este mes se describe el último conjunto de rutinas 
internas que usa el nuevo sistema operativo, con lo que sólo 
nos queda definir el funcionamiento y uso de cada uno de 
los comandos, cosa que dejamos para el próximo mes, en el 
que acaba esta serie de artículos destinada a explicar el + 
funcionamiento interno de este programa. 


Un nuevo operativo 
para el Spectrum 
RT IS 


El interprete BASIC es utilizado 
de dos formas, entrando en LIS- 
CAN realiza el análisis sintáctico 
de la línea, y entrando en LIRUN 
interpreta la línea o el programa. 
La forma de distinguir las dos fun- 
ciones es mediante el bit 7 de la va- 
riable FLAGS, que está a uno du- 
rante la ejecución y a cero en el 
análisis sintáctico. El test de este 
bit se hace siempre llamando a 
SINTAX-Z en la dirección 2530. 
De esta forma se ahorra un byte en 


746 LISCAN RES 7,(IY+1) 
CALL ELINO 
XOR A 
LD (*5C47),A 
DEC A 
LD (*5CZA) „A 
JR STMTL1 


STLOOF CALL NEXTCH 

STMTL1 CALL *16BF 
INC  (IY+13) 
JP M,*1C8A 


CALL GETCH 

LD B,“00 

CP “Ор 

JP Z,LINEND 
СР. “ЗА 


JR Z,STLOOP 
LD HL,STMRET 


PUSH- HL. 

LD CA 

CALL. NEXTCH 

LD A.C 

CP “СЕ 

JR NC,NNCOM 

SUB -18 

JR С.КЕРС 

CF 208 

JR C,NUCOM 
REFC JP  *1C8A 
Сомко LD а, (HL) 
мисом LD  HL,TABSIN 

JR GNPAR 
NNCOM LD HL,TABCRD 


LD С.А 


© 


cada llamada, aunque es más len- 
to. 

Para interpretar una línea opera 
de la siguiente manera. En primer 
lugar coge el código del comando. 
Si éste corresponde a una función 
del BASIC estándar busca en la ta- 
bla TABCRD para ver si se trata 
de uno de los comandos que han 
sido rescritos. Si es así, se les asig- 
na un código para entrar en la nue- 
va tabla de sintaxis. Si es un co- 
mando nuevo o uno antiguo no re- 


780 CALL- *16DC 
781 JR с,сомкр 
782 LD A,C 

783 LD н, 21848 
784 SUB “СЕ 

785 GNPAR LD С,А 

786 ADD н.,вс 
787 LD C, (HL) 
788 ADD HL,BC 
789 JR GETPAR 


790 SCLOOF LD HL, (*5C74) 
791 GETPAR LD A, (HL + 


792 INC HL 
793 LD (45074) , HL 
794 LD BC,SCLOOP 
795 PUSH BC 

796 LD CA 

797 CP -20 

798 JP NC, ЗЕРАВА 
777 СР к. 

воо JR NZ, NOCL3 
801 RST “18 

802 CALL *1CDE 


805 CLASSO СР А 
804 CLASS5 РОР BC 


805 CALL Z,5HEEND 
806 EX DE, HL 
807 JP “ісі 
808 NOCL3 AND A 

809 JR Z,CLASSO 
810 CP +05 

811 JR NZ, NOCLS 
812 DEC B 

813 JR CLASS5 


814 NOCLS СР +02 


definido se reduce su rango para 
poder entrar en las tablas y se ini- 
cializa HL al comienzo de la tabla 
correspondiente. A partir de este 
momento todos los comandos se 
tratan de la misma forma, aunque 
utilizando la tabla de la ROM o la 
nueva según corresponda. De esta 
tabla se extrae un dato que una vez 
sumado a la dirección en que se 
encuentra apunta al comienzo de 
los parámetros correspondientes-a 
ese comando. Estos parámetros in- 
cluyen la clase o clases a que perte- 
nece el comando, los separadores, 


815 JR NZ,NOCL2 
816 POP BC 

817 CALL *1C56 
818 CALL CHEEND 
817 RET 

820 NOCL2 СР “407 

821 JP NZ,*1B63 
822 BIT 7,(IY+1) 
823 RES О, (IY+2) 
824 CALL NZ,*0D4D 
825 POP AF 

826 LD A, (*5C74) 
827 SUB 415 


828 CALL *21FC 

829 CALL CHEEND 
830 JP “1CAD 

831 STMRET CALL *1F54 

832 JP NC,*1B7B 
833 BIT 7,(IY+10) 
834 JR NZ,STNEXT 
835 LD HL, (*5C42) 
836 BIT 7,H 

837 JR 2, LINEW 
838 LIRUN LD HL, *FFFE 
837 LD (45C45),HL 
840 LD HL, (*5C61) 
841 DEC HL 

842 LD DE, (*5C59) 
843 DEC DE 

844 LD А, (25644) 
845 JR NEXTLI 


Al interpretar una linea coge 
un código de comando, si 
este es uno de los del 
Spectrum, mira a ver si ha 
sido redefinido. 


si es que los necesita, y por último 
la dirección en que se encuentra la 
rutina de ese comando. 

La clase de un comando indica 


846 LINEW CALL “196E 


847 LD А, (“5C44) 
848 JR è Z,LIUSE 
849 AND A 
850 JR NZ, REPN 
851 LD в,а 
852 LD A, (HL) 
853 AND “Co 
854 LD A,B 
855 JR _ Z,LIUSE 
856 RST 8 
857 DEFB “FF 
858 REM POP BC 
859 LINEND CALL. *2530 
RET Z 
LD HL, (*5C55) 
LD  A,*co 
AND (HL) 
RET NZ 
XOR A 
LIUSE СР 401 
ADC А, ^00 
Ln D, (HL) 
INC HL 
LD Е, (HL) 
LD (*5C45),DE 
INC HL 
LD Е, (НЫ 
INC HL 
LD р, (HL) 
ЕХ  DE,HL 
ADD HL,DE 
878 INC HL 
879 NEXTLI LD (45055) ,HL 
880 ЕХ DE,HL 
881 LD (*5C5D) , HL 
882 ір D,A 
883 LD E,*00 
884 LD (IY+10),*FF 
885 DEC D 
886 LD (1Y+15),D 
887 ЈР. Z,STLOOP 
888 INC D 
889 CALL -EASTMT 
890 JR 2,5ТМЕХТ 
891 REPN RST 8 
872 DEFB “16 
893 CHEEND CALL “2530 
874 RET NZ 
895 РОР BC 


qué es lo que debe haber detrás del 
comando. Por ejemplo, CLS es un 
comando de clase 0, lo que quiere 
decir que no debe haber nada más 
detrás de él. Si hubiera algo más se 
produciría un error de sintaxis 
(Nonsense in BASIC). Un coman- 
do puede utilizar varias clases. Por 
ejemplo, los parámetros corres- 
pondientes a FOR son: 04 3D 06 
СС 06 05 03 1D. 04 indica que es 
de clase 4, debe encontrar el nom- 
bre de una variable de una sola le- 
tra. 3D es el código de ‘=’, caracter 
que debe estar detrás de la varia- 


896 POP BC 
897 STNEXT RST ^18 

898 CP “ор 

899 JR Z,LINEND 

900 СР «за 

901 GSTLO JP  Z,STLOOP 

902 LD AC 

905 AND A 

904 JR Z,GSTLO 

905 RST 8 

906 DEFB “ОВ 

907 TABCRD DEFB *F7,*08:RUN 
908 DEFE “FB,“09;CLS 
909 DEFE “FD, ^0А: £LEAR 
910 DEFB “EA,“OB; REM 
911 DEFE “ҒА, “OC; IF 
12 DEFB “Eb, *OD; NEW 
913 DEFE “ЕЕ, “ОЕ; РОК 
914 DEFB 5, “ОҒ: РКІМГ 
915 DEFB “ЕЕ, 10: INFUT 
916 DEFB *E9,*11;DIM 
917 DEFB *FO,*12:LIST 
718 DEFE *E3,*13;READ 
919 DEFB *£4,*14;DATA 
920 DEFE “FC, “153 DRAW 
921 DEFB *E0,*16:LPRINT 
22 DEFE *E1,*17;LLIST 
923 DEFB “D8,“18;CIRCLE 
924 РЕРВ *CE,*19%;DEFFN 
925 DEFB +00 

926 TABSIN DEFB *61,*6D,*57 
927 DEFB *5A,*60, ^2 
928 DEFB +64, *GA, 2 
929 DEFB *14,*16,*18 
930 DEFB *1A,*1E, +20 
931 DEFB ^27,^29, *2B 
932 DEFB +2D,*2F,*31 
933 DEFB +33, “36,38 
954 DEFB “3A.*3D 

935 DEFB “03 

936 DEFW RUN 

937 DEFB “00. 

938 DEFW CLS 

939 DEFE “05 

940 DEFW CLEAR 

941 DEFE “05 

942 DEFW REM 

943 DEFB “Oë, CB, *05 
944 DEFW IF 

945 DEFB *00 

946 DEFW NEW 


Paseo de Gracia, 11 - Esc. Ç., 2.0 4.a 
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TIENDA AL PUBLICO EN BARCELONA 


GESTION 


S.1.T.1. V.3* 4.000 
Al comprar esta versión abonamos 3.000 -ptas por cual- 
quier versión anterior. 


Context V.7 * 

Tratamiento de Textos 

Funciona con cualquier impresora. 
Cassette y/o microdrive. 64 col. en pantalla e impresora. 
Context V.8 * 4.000 
Nueva versión, Acentos graves y agudos. 


Copy en alta resolución. Versiones para Seikosha SP-800, 
SP-1000 y Riteman F+ 


4.000 


Adaptador SITI-CONTEXT 2.000 
Permite pasar información del БІТІ al CONTEXT. 

M.D.S. -Sistema Operativo para 
Microdrive 7.000 


Conjunto de nuevos comandos BASIC que permiten Ac: 
ceso Aleatorio a Ficheros en Microdrive con un tiempo 
medio de acceso de 4 segundos. 


CONTABILIDAD PIN* 

Plan contable. 200 cuentas, 2000 asientos, 
Hasta 9.000.000.000. Balance con activo-pasivo, cta, re- 
sultados. Utiliza el S.0.M.D.S. 

Cualquier impresora 80 col. 


3.000 


Kit Utilidades Discovery 1 2.000 
10 utilidades CAT extendido. ON ERROR, Set de caracte- 
res del Amstrad, etc. 

*Disponible en disco para Discovery 1 al precio de 
5.000'-ptas. 


AJUSTE DE CABEZALES 

CASSETTE 2.500 
SINTETIZADOR DEVOZ 3.000 
MULTI-COPYS (Copys desde 2 cm. hasta 
70 cm.) 3.000 
COPY GRISES (F+, SP-800, 

SP-1000, GP-550) 

COPY RS-232 


Fotogr: агада y pasada a impresora con el 


Copy de 


O M е шыныны е w ma ws wr 
Enviar a: PIN, P? de Gracia, 11, Esc. С, 2:4: -08007 Barcelona 


PEDIDOS POR CORREO O TELEFONO Nombre 
Envios contra reembolso atoda España Dirección 
200ptas. gastos de envio 
En tu domicilio en 3-4 dias | Población 

Pedido 


HARDWARE 


Discovery 1 + Kit utilidades 55.000 
Discos 3 1/7” 800 
Cable impresora Discovery 3.500 
Interface monitor 3.900 
Interface sonito TV 3.500 
Interface Centronics 8.000 
Lápiz óptico + Sistema de dibujo 4.850 
Teclado Saga 1 11.000 
Impresora Riteman F + 

(Centronics) * 69.000 
Impresora S-P 1000 

(Centronics) 74.900 
Monitor CIAEGI F. Verde 24.000 
Monitor CIAEGI F. Ambar 24.750 

NOVEDADES PIN 

Alimentación Ininterrumpida 9.750 


No se pierde la intormación por corte de luz o bajada de 
Tensión. 130h. de autonomia. 
Recarga automática. 


Digitalizador de Imágenes 

P-1024 35.000 
Digitaliza cualquier imagen impresa yla introduce en el or- 
denador donde se puede tratar, (Tramar, mezclar, silue- 
tear, etc.) Muy fácil de usar 


*OFERTAESPECIAL ' 
Impresora + Interface Centronics + 


Context V.8 + Copy Grises 72.000 


| 


Tel. (93) 318 24 53 -08007 Barcelona 
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947 DEFB *04,"=",“ A>, 1052 JR NZ, 
948 2 DEFB 200206205 En la tabla de comandos se 1055 Е 
949 DEFW FOR indican los parámetros que 1054 SCF 
931 DEFW PRINT deben ir detrás decada con Әт зв 
952 DEFB +05 instrucción, de este modo se 1057 CP “CD 
953 DEFW INPUT puede comprobar si la 1998 өң; ka AŻ 
954 DEFB <05 ; żę оз 22 
955 DEFW DIM ветах ES core 2, 1060 CALL *1C82 
756 DEFB *05 1061 CALL CHEEND 
957 DEFW LIST 1062 JP “1D16 
958 DEFB -05 ¡EEE | 1063 FUSE1 CALL CHEEND 
227 ФЕР бады 1064 JP 1015 
961 DEFW DATA 997 CLEAR1 PUSH' BC и ły 
962 DEFB <09,<05 998 LD DE, (“5C4B2 CER INTL 
422 DERE SAW 999 LD НС, (25659) 1067 PRINT LD  A,*02 
964 DEEB 205 1000 BEC HL 1068 РКІМТІ CALL “2530 , 
965 DEFW LPRINT 1001 CALL *19E5 1069 CALL NZ,*1601 
że А 1002 CALL CLS 1070 CALL “0D4D 
967 DEFW LLIST 1003 ЈР -1EC6 A CALL ЗЕЕ 
968 ЕРЕ <09,<05 1004 IF POP ВС 1072 CALL СНЕЕМО 
949 DEFW CIRCLE 1005 CALL <2550 1075 RET 
470 DEFB “05 1006 JR Z,IF1 1074 INPUT CALL “2530 
971 DEFW DEFFN 1007 RST “28. 1075 JR  Z,INP1 
972 .DEFB *08, *00 1008 DEFB 202,38 1076 LD A,*0L 
1009 ЕХ DE,HL 1077 CALL “1601 
r ' 1010 CALL <54Е? 1078 CALL CLSLO 
1011 JP  C,LOELSE 1079 INP1 10  (1Y+2),*01 
1012 IF1 CALL GETCH 1080 CALL ІМІТІ 
16:5 ван 1081 CALL CHEEND 
1014 LOELSE LD В, (1ү+15)  ;5g> сед ае че, 
1015 LD C,*01 083 ке 
1016 CBELSE CALL GETCH « 1085 Ерийн коса) 
ғ 1017 СР “18 083 ЕР B 
М 1018 JR  NZ,NELSE 1085 JR С,ІМР2 
wą 1019 DEC C 1086 LD: 6,421 
KZ f | 1020 JR  Z,CELSE 1087 LD BA 
4 |! 1021 NELSE CP “FA 1088 INP2 LD  (+5C88),BC 
| JR NZ,NOIF 1089 LD 6,219 
INC C 1090 SUB B 
NOIF INC в 1091 LD (“5C8C),A 
Елі самат 1092 RES 0, (IY+2) 
а + 
203 РЕКИ ТО e Е 1095 ІМІТІ CALL ^204Е 
774 DEFB: 2085208 1029 CELSE LD (1ү+15),8 ¡09% JR Z,INITL 
975 DEFW RENUM 1030 CALL NEXTCH 542 св 
976 DEFB 405 1031 JP STMTLA 4 
977 DEFW ELSE osa LOOT LED Ы гс; 1098 JR NZ, INIT2 
ki БЕРЕЗ 1033 CALL TESTC 1097 RƏT 220 
97% DEFW ONAGO 1034 CALL *18B6 1100 CALL *1FDF 
5. БЕКЕ 1035 LD  (=5C5D),HL 1101 RST 418 
381 БЕРЫ SWAP | Jos CP “SA 1102 CP +29 
252 ОЕР 192,709 1037 RET Z 1103 JP  NZ,*1CBA 
283 PEEB, 08 1038 СЕР “СВ 1104 RST “20 
224 BEEW 203... 1039 RET Z 1105 ЈР INNE2 
Sar DERE «286 1040 СР. op 1106 INIT2 СР “СА 
987 DEFW COMND 1042 Per 2 1107 EEN НТ 
988 RUN CALL *1E67 1043 INC HL 1108 RST 220 
989 LD Вс, 20000 3525, КВТ 1109 CALL *1C1F 
990 CALL *1E45 1045 ТЕВТЕ CP 522 1110 SET 7, (1Y+55) 
1111 BIT 6, (IY+1) 
991 JR CLERUN 1046 RET NZ Ӯ 
992 CLEAR CALL *1E99 1047 OTRO INC HL 1112 JP М2, ^1С8А 
993 CLERUN LD A,B 1048 LD А, (HLY 1113 ік INFROM 
994 OR С 1049 CP 422 1114 INIT3 CALL *2C8D 
995 JR NZ,CLEAR1 1050 RET Z 1115 JP NC, INNE1 
99 LD BC, (“5CB2) 1051 CP “ор 1116 CALL *1C1F 


1117 RES 7, (IY+55) 1195 INNE2 CALL *204E 
1218 ia a Una vez acabada de analizar 1198 ШЖ ы 
1120 CALL 216BF una sentencia se comprueba 119g рм CALL *28B2 
1121 LD  HL,*5C71 la tecla BREAK y pasa a 1199 JF  NZ,*1CBA 
1122 RES 6, (HL) STNEXT para analizar la 1200 CALL *2530 
1123 SET 5, (HL) siguiente. 1201 JR м2, DRUN 
1124 LD BC,*0001 ° 1202 RES 6,0 
1125 BIT 7, (HL) 1203 CALL 22996 
1126 JR NZ, INPR2 1204 CALL CHEEND 
1127 LD А, (IY+1) 1205 DRUN JP  *2C15 
1128 AND =40 О 1-2 1157 LD a,-o3 
1129 JR №, ІМРКІ 1207 JR LISTI’ 
1150 LD 6,405 1165INVAR4 LD (IY+34),400 1208 LIST LD  A,*02 
1131 МРАЁ OR (Н) 1164 CALL ABBE * C 1209 LISTA LD  (IY+2),*00 
1132 ых AO 1165 JR ONZ.INVARS 1219 CALL “2330 
1133 INPR2 КӨТ *30 - 1166 CALL ЕБбОРУ 1211 CALL NZ, 1601 
1134 LD «но, 1167 LD BC, (45682) 1212 RST 418 
1135 LD AC 1168 CALL *0DD9 1213 CALL “2070 
1136 RRCA 1169INVARS LD HL,*5C71 1214 JR С.115Т74 
1137 RRCA Я ‚^5С? q Е 
1158 JR  NC,INPRZ 1170 RES 5, (HL) 1215 RST 18 
1139 LD A,222 1171 BIT 7, (HL) 1216 СР *ZB 
1140 LD ME.A 1172 RES 7. (HL) 1217 JR  Z,LIST2 
1141 DEC HL 1173 JR NZ,INYARŁ 1218 CP 2С 
1142 LD (HL),A 1174 РОР HL 1217 JR NZ.LISTS 
1143 INFR3 LD (“5C5B),HL 1175 РОР HL 1220 LIST2 RST “20 
1144 BIT 7,(1Ү%55) 1176 LD  (*5C3D),HL 122 CALL CIEBZ 
1145 JR  NZ.INVARZ 1177 РОР HL 1222 JR LISTS 
1146 LD HL, (*5C5D) 1178 LD (езсеғ),н. 1225 LISTS CALL *1CE6 
1147 FUSH HL 1179 SET 7,(IY+1) 1224 JR LISTS 
1148 LD HL, (*5C3D) 1180 CALL +21B9 1225 LIST4 CALL *1CDE 
1149 PUSH HL 1181 LD HL, (-5C5F) 1226 LISTS CALL CHEEND 
1150 INVAR1 LD  HL,INVARI 1182 LD (1Y+38),+00 1227 ЈР 1825 
1151 FUSH HL 1183 кр  (*5C5D),HL 1228 DATA RST ^18 
1152 BIT 4,(IY+48) 1184 JR  INNE2 1229 CALL 22530 

' 1155 JR Z,INVARZ 1185INVARG LD HL, (*scez) 1230 ӘР NZ,*1E37 
1154 LD (“5C3D),SP 1186 LD DE,(*+sc61) 1231 DATA1 CALL *24FB 
1155 INVARZLD HL, (*5C61) 1187 SCF 1232 CP “20 
1156 CALL *11A7 1188 SBC HL, DE 1233 CALL NZ, CHEEND 
1157 LD (IY+0),*FF 1189 LD в.Н 1234 RST “20 
1158 CALL EDITOR 1190 LD GL 1235 JR рата! 
1159 RES 7,(IY+1) 1191 CALL *ZABZ 1236 DRAW RST “18 
1160 CALL 22189 1192 CALL “2ағғ 1237 cr 2С 
1161 JR  INVAR4 1192 JR INNE2 1238 JR Z,DR3P 
1162 INVAR3 CALL EDITOR 1194INNE1 "CALL *1FFC 1239 CALL CHEEND 


GUSANEZ. por ӘМ С Tomás 


№ VOY А TECLEAR uN ANDO TE TRAEN EL ORDENADOR 
HE TOMADO UNA GRAVE Y PROGRAMA MÁS HASTA QUE NO 
DECISIÓN | ME ASEGUREN, PoR ESCRITO y 
ANTE NOTARIO, QUE FUNCIONA 


DEL TALLER ? 


ble. Clase 06 indica una expresión 
numérica, CC es el código de ‘ТО’, 
otra vez clase 6, otra expresión. 
Por último clase 5, indica que el 
resto del análisis lo hace la rutina 
del comando, cuya dirección indi- 
can los dos últimos bytes. 

Los comandos que acaban en 
clase 5 son llamados tanto si está 
analizando como si está ejecutan- 
do una línea. Todos ellos en un 
momento dado llaman a CHECK- 
END, que sólo devuelve el control 
si está en ejecución. Si no continúa 


1 


directamente en STMT-NEXT en 
la ROM. Por esta razón se ha re- 
producido estos comandos hasta el 
punto en que llaman a CHECK- 
END. 

Los comandos de clase OB tie- 
nen el mismo problema, sin em- 


bargo no han sido reproducidos 
1240 JP “2477 
1241 DRZP RST “20 
1242 CALL *1C82 
1243 CALL CHEEND 
1244 JP 22394 
1245 CIRCLE КЭТ +18 

1246 СР +2 

1247 JP NZ,*1C8A 
1248 RST “20 

1249 CALL *1C82 
1250 CALL CHEEND 
1251 JP 2232D 
1252 READ3 RST “20 

1253 READ CALL *1C1F 
1254 CALL +2530 
1255 ЈР №, 21рғ5 
1256 квт “18 

1257 ер %2с 

1258 JR Z,READ3 
1259 CALL CHEEND 
1260 RET 

1261 БЕРЕМ RST “18 
1262 CALL *2530 


El juego de caracteres es el 
mismo que usa el Tasword y 
se puede sacar de este 
programa con un sencillo 
conjunto de instrucciones, lo 
que ahorra bastante trabajo. 


por que alargarian demasiado el 
programa. Estos comandos son los 
correspondientes a las rutinas del 
cassette y el problema que presen- 
ta el no introducirlos no es muy 
grave, lo único que ocurre es que 
no se puede poner un comando 
nuevo detrás de una de estas ins- 
trucciones en la misma línea. El 
programa sería capaz de ejecutar- 
lo, pero no puede superar el análi- 
sis sintáctico, ya que intenta anali- 
zar un comando nuevo con las ru- 
tinas de la ROM. 

Una vez que ha acabado de ana- 
lizar/ejecutar la sentencia com- 
prueba la tecla BREAK en 
STMRET y pasa a STNEXT para 
analizar la siguiente sentencia o la 
siguiente línea. 


Los caracteres 
Para acabar resolvemos el pro- 


blema de introducir el juego de ca- 
racteres. Vamos a dar dos méto- 


1263 JP  NZ,*1F65 
1264 SET 6, (1IY+1) 
1265 CALL *2C8D 
1266 JR  NC,DFN4 
1267 RST *20 
1268 СР SZĄ - 
1269 JR  NZ,DFN2 
1270 RES 6, (1Y+1) 
1271 АВТ ^20 
1272 DFN2 СР +28 
1273 JR NZ,DFN7 
1274 RST *20 
1275 CP +29 

1276 JR Z, DFN6 
1277 DFN3 CALL “2C8D 
1278 DFN4 JP NC, ^1СВА 
1279 ЕХ DE, HL 
1280 RST ^20 

1281 CP <24 

1282 JR  NZ,DFN5 
1283 EX DE,HL 
1284 RST “20 

1285 DFNS ЕХ  DE,HL 


dos, uno a partir del programa 
Tasword Two y otro a partir de los 
listados del mes de septiembre. 

Si lo queréis sacar del Tasword 
debéis cargarlo y volver al BASIC, 
Hacer NEW, con lo que única- 
mente se borrará el programa BA- 
SIC. A continuación teclear el pro- 
grama siguiente: 


10 FOR і-32000 TO 32015:READ 
a:POKE і,а:МЕХТ i 

20 DATA 33,0,239,1,128,3,175, 
237,111,35,11,120,177,32,247, 
201. 

30 RANDOMIZE USR 32000: 
SAVE “chr"CODE 61184,896 


y grabar en una cinta el juego de 
caracteres. Por último carga el có- 
digo producido por el ensamblador 
y encima el juego de caracteres uti- 
lizando: LOAD “chr”CODE 
60358, y vuelve a grabar el progra- 
ma. 

Si lo quieres sacar del listado de 
DATAS del mes de septiembre de- 
bes teclear las lineas comprendidas 
entre la 1060 y la 1340. Teclea 
también las líneas 10 a 110 cam- 
biando la 10 y la 30 por: 


10 CLEAR 60168:LET n=60351: 
RESTORE 
30 FOR і-1060 TO 1340 STEP 10 


Ejecuta el programa y cuando 
acabe haz SAVE “chr"CODE 
60358,896. Carga el programa, en- 
cima el juego de caracteres y vuel- 
ve a grabarlo. 


1286 LD BC, *0006 
1287 CALL *1655 
1288 INC HL 

1289 INC HL 

1290 LD (Н, ^0Е 
1291 СР “20 

1292 JR NZ, DFN6 
1293 RST “20 

і294 JR DFN 
1295 DFN6 CP -29 

1294 JR  NZ,DFN7 
1297 RST *20 

1298 СР “3D 

1299 JR NZ, DFN7 
1300 RST “20 

1301 LD A, (45CC35) 
1302 PUSH AF 

1303 CALL *24FB 
1304 POP AF 

1305 XOR (IY+1) 
1306 AND *40 

1307 DFN7 ЈР  NZ,*1C8A 
1308 CALL CHEEND 


Novedad: 
Dibujando 
¿con ratón 


š 
8 


DIBUJANDO CON КАТОМ 


En el SIMO ha hecho su pre- 
sentación un nuevo programa 
para el QL que por sus caracte- 
rísticas va a hacer feliz a más de 
uno, ya que se trata de un evo- 
lucionado paquete para la reali- 
zación de dibujos. Se llama Star 
Mouse y ha sido desarrollado 
por la casa PURICORP de 
Guadalajara, hecho bastante in- 
frecuente ya que la mayoría de 
los programas que se venden en 
nuestro país (y sobre todo si es- 
tán en lenguaje máquina como 
éste) provienen de Inglaterra. 

El paquete parte de una con- 
cepción distinta a la emplada 
hasta ahora, ya que emplea un 
dispositivo llamado «ratón» y 
es conocido desde hace mucho 
(fue inventado a principios de 
los 70 en los laboratorios de la 
Xerox en Palo Alto), no ha em- 
pezado a ser conocido masiva- 
mente hasta hace poco que al- 
gunos ordenadores personales 
lo han comenzado a usar. 


Con este dispositivo se aban- 
dona el habitual sistema de mo- 
vimiento a base de flechas de 
cursor y se sustituye por este 
dispositivo, que es mucho más 
intuitivo y más fácil de mane- 
jar, de modo que el tiempo em- 
pleado en la realización de los 
dibujos se acorta sensiblemente. 


Al cargar el programa la 
mayor parte de la pantalla que- 
da ocupada por el área de dibu- 
jo, blanca en un principio, a la 
izquierda de la cual aparece una 
serie de dibujos que representan 
los útiles que tenemos disponi- 
bles. Uno de ellos es una bro- 
cha, otro un cubo de pintura 
para rellenar áreas, otro realiza 
cuadrados, etcétera. También 
en este menú hay una serie de 
opciones adicionales, como un 
dibujo de una impresora que 
hace que lo que se muestra en 
pantalla salga impreso. 


Debajo de ese menú hay otro 


or ас ON 


de menor tamaño en el que se 
elige el tamaño de la línea con 
que se dibuja y por último, ocu- 
pando toda la parte inferior de 
la pantalla, se encuentra otro 
menú con las tramas disponi- 
bles y que usará la brocha, ya 
que ésta no sólo dibuja en ne- 
gro, sino que puede hacerlo en 
diversos colores y tonos de gris. 


Todas estas elecciones que 
hemos mencionado se hacen 
moviendo el ratón por encima 
de la mesa, lo que produce un 
movimiento equivalente a una 
pequeña flecha por la pantalla. 
Para elegir algo basta colocar la 
flecha encima y pulsar el botón, 
ejecutándose la acción. El pro- 
ceso de dibujado se realiza con 
la misma sencillez y los efectos 
que se consiguen son realmente 
buenos, incluso para personas 
que no lo han manejado con an- 
terioridad. Las perspectivas que 
tiene son bastante buenas, y una 
prueba de ello es que la casa In- 
vestrónica lo apoya y hemos 
podido verlo en su stand en el 
SIMO. 


74 Nuestro simpático amigo 
Gusśnez aparece en todas 
partes, incluso en el pantalla de 
dibujo del Star Mouse. 


Recibos 


ае Navidad 


| Ahora que vienen las Navidades, todos queremos repartir 
entre los familiares y amigos participaciones de la loteria 
de Navidad. Con un QL, una impresora y este programa, 
tendrás la posibilidad de personalizar estas participaciones 
y demostrar a más de un escéptico la utilidad de estas 


máquinas. 


Generalidades 

El programa está hecho para ser 
usado con una impresora CPA 80. 
Para otras deberán ponerse los có- 
digos correspondientes en las si- 
guientes líneas: 
390: IMPRESION EXPANDIDA 
& LOTS £ IMPRESION NOR- 


del QL, debes eliminar la linea 
110, y respecto a las letras acen- 
tuadas, deberás elegir entre: 


a) no poner el acento. 


b) escribir la palabra hasta la 
letra acentuada, añadir el código 
de la impresora correspondiente a 


MAL BACKSPACE (vuelve un espacio 
1350: ESPACIADO ENTRE LI- hacia atrás) e imprimir el apóstro- 
NEASA 1/8 fo. Por ejemplo: para imprimir la 


Si no tienes la versión española 


palabra *'número”, deberás escribir 


«nu» & chr$(8) & «mero». O algo 
más elegante: al principio del pro- 
grama poner B$=CHR$(8) & 
CHR$(96), y entonces escribes 
«пи» & b$ & «mero». 


Procedimientos 
y funciones 


Una de las mejores cosas que tie- 
ne el QL es la definición de pala- 
bras para facilitar la programa- 
ción. Cuando el ordenador en- 
cuentra, al correr el programa, una 
de estas palabras, busca la defini- 
ción y ejecuta todas las instruccio- 
nes que se hallan entre las senten- 
cias DEFINE (la palabra) y END 
DEFINE. Ahora voy a comentar 


199 MODE 1 e 

119 TRA 1: REMark (Quitar esta linea si no es la versión espaiola). g — 4 

12@ OPEN $5, seri 

130 DIM unid$(9,6), dieci$(10,19), decen$(9,9), cent$(9,13) APLICACION 
140 RESTORE : datos 

158 CLS: CSIZE 2,1 

160 AT 3,6: INPUT "J Número de loteria 2" 514$ 

170 lots="": FOR n=1 TO LEN(1t$): lots=lot$ £ It$(n) & ” " 


i 189 AT 5,6: INPUT 
CLS 3: 60 TO 188 
199 CSIZE 0,9 
200 num=num$: traduce num 
210 coloca sal$ 

220 CLS 

230 avisa 

249 imprime 
259 IF otro: 
269 CLS: STOP 
278 : 

289 
290 
302 DATA 
ROCIENTAS" 


60 TO 150 


EISCIENTAS" 


А", "ОСНОСІЕМТАЅ" 


"1 Pesetas ?" ! пит: 


DATA "UNA", "DIEZ", "CERO", "СІЕМТО", "DOS", "ONCE", "VEINTE", "DOSCIENTAS" 
"TRES", "DOCE","TREINTA","TRESCIENTAS", "CUATRO","TRECE", "CUARENTA" , "СОАТ 


319 DATA "CINCO","CATORCE", "CINCUENTA", "QUINIENTAS", "SEIS", "QUINCE", "SESENTA", "5 
320 DATA "SIETE", "DIECISEIS", "SETENTA", "SETECIENTAS","OCHO", "DIECISIETE", "OCHENT 


IF num$="" OR num$ < 


71" OR num$ > "1999": 


оз 


quć hacen los procedimientos y la 
única función definidos en este 
programa: 

— «datos» (Líneas 620-650): 
Carga los matrices unid$, dieci$, 
decen$ y cent$ con sus respectivos 
valores. 

— «traduce» (670-1070): Este 
procedimiento es el más interesan- 


te del programa. Convierte la can- 
tidad de pesetas que hemos intro- 
ducido en número a su correspon- 
diente literal, y lo asigna a la varia- 
ble SALS. 

— «imprime» (1090-1180): lee 
los DATA de las línes 340 a 590 y 
los envía a la impresora, En estas 
líneas está el recibo propiamente 


dicho, y naturalmente, si se cam- 
bian, cambiará también el resulta- 
do. Así que ya sabes, si quieres ha- 
cer otro modelo diferente, sólo tie- 
nes que cambiar estos DATA. 

— «coloca» (1200-1270): de- 
vuelve la variable SAL$ más o me- 
nos centrada entre dos filas de ‘$’. 

— «avisa» (1290-1360): se ase- 


338 
348 
358 
368 
378 
388 
398 


DATA 
DATA " 

DATA " + 
DATA "Ж 
DATA "% 
DATA "* 
DATA "% 

+ 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


““” 
"+ 
жж 
sę 
+ 
"£ 
sę 
ze 
+ 
"£ 
=.) 
A 
"% 
"+ 
ER 
“ж 
sie 


аве 
419 
420 
430 
440 
456 
462 
478 
482 
492 
580 
512 
520 
538 
548 
55a 
580 


FELIZ 


SON; 


578 


588 
598 
656 
616 
626 
638 
640 
658 
668 
678 
688 
698 
708 
718 
222 
728 
748 
758 
768 
778 
789 
798 
вай 
819 
828 
838 
вав 
856 
866 


DATA "* 


DATA " + 
DATA = 


"к 


п=п+1: READ di 
END DEFine 


REMark LOCa 
пи1=а: sal$='" 
SELect ON a 
ON a=1 

sals=" UNA " 
ON a=1008 

salé=" MIL * 
END SELect 


SELect ON nul 
ON nu1=188 
salé=sal$ k 


60 TO 1998 
END SELect 
sal$=sal$ £ * 
SELect ON mi 

ON mi=18 TO 1 

sal$=sal$ к. 
ON mi=Q 

Sal$=sal$ К 
ON mi=8 TO 9 

saló=sal$ £ 


m=INT (nu1/188): 


"NUEVE", "DIECIOCHO", "NOVENTA", "NOVECIENTAS", "DIECINUEVE" 
EEEE EEEE RONDA " 


LOTERIA 


NACIO 


NUMERO: 


anan El 
recibo juega 
"k sal k” 
pesetas en 


la 


el 


21 


El 


NAVIDAD 


w "W PTS." ы FILLS(" 

+” 

13+LEN (num$) ) 
+ 


ko поп te 


FILLS( 


EEEE JAP " 


DEFine PROCedure datos 
FOR n=1 TO 9: READ unid$(n), dieci$(n), decen$(n), cent$(n) 


ecis(n) 


DEFine PROCedure traduce (a) 
nu, nul,m,mi 


2 RETurn 
: RETurn 


mi=nui-(186%m) 


" CIEN ": RETurn 


ON пи1=8 TO 99 


. 
" k cent$(m) 


> 


" * w dieci$(mi-9) & " ": RETurn 


RETurn 


* ' o unids(mi) ko" 


RETurn 


" u CHR$(14) Ж lots & СНЯ$ (26) k " 


portador 
cantidad 


número 
indicado para el sorteo que 
celebrara en Madrid, 

de Diciembre de 


depositario, 


OE 


E FILL$(" ",4-LEN(nums)) k " 


ж. 
ж 
x" 
+ 


NAL 


de este 
de 

ж 

arriba 

se 

el dia 


1.985. 


LEN (num$)) & " 


gura de que la impresora estć co- 
nectada cuando la envia lo códigos 
del espaciado (linea 1350). 

— «otros» (1380-1500): esta 
función devuelve ‘1’ si queremos 
hacer otra participación o ‘0’ si по 
queremos. 


Javier Ortega 


OE 


* 
LOTERIA NACIONAL 
252 NUMERO: ә о ш с оо 
ЖИД, portador de este 
ana recibo la cantidad 
ммм ТЯ ción 55050925632 
2222222 esetas en el пашего arriba 
R ndicado para el sorteo que se 
BRZ celebrara en Madrid, 81° dia 
“ИИМДИ 21 “de Diciembre de' 1.985. 


FELIZ NAVIDAD 


El depositario, 


SON: H109N 


Sk ooo około około 


ж 


эЭаоннека кеннен а неее ене е 


> ж 
SE so ж жжжкж 


918 END SELect 

928 nu=INT (m1/18): 
938 IF NOT mi 

948 
958 END IF 
966 IF nu=2 
978 sals 
989 END IF 
990 sal$=sal$ к” 
1990 SElect ОМ nul 
1010 ON nui=ig TO 19 


1958 END SELect 
1868 GO TO 920 
1978 END DEFine 
1888 : 


1188 LOCal a% 

1118 RESTORE 348 

1128 REFeat impre 

1138 IF EOF: EXIT impre 
1148 READ a$ 

1158 PRINTH 5; a$ 

1169 END REPeat impre 
1178 FOR п=1 ТО 6: 
1188 END DEFine 
1198 : 


1218 LOCal al$,a2 
1228 lon=LEN(sal$: 


| 1260 RETurn a$ 
1278 END DEFine 
1288 : 


1388 CLS 
1318 CSIZE 1,1 


1338 CSIZE 8,0 
1348 PAUSE 

1358 CLS: PRINT #5, 
1368 RETurn 

1378 : 


1398 LOCa1 a 
1498 CLS 

1410 CSIZE 2,1 
1428 AT 4,7: PRINT 
1439 CSIZE 9,9 
1440 REPeat lazo 
1450 9%=ІМКЕҮФ 
1460 IF ə%="=" OR 9 
1478 IF 9% 
1489 END REPeat lazo 
1498 RETurn a 

1599 END DEFine 

1518 : 


Sal$=sa1$ k " " k decen$(nu) 


18 Ło" VEINTI" 


" k decenślnu) & " Y " k unidSimi) ko" ": 


1238 als=sal$(1 TO mit): 
als(mit +1 TO lon): 


CHR$ (27) | "Ø 


1388 DEFine FuNction otro 


п" OR g$="N": 


mi=mi-(18%nu) - 


Mo" о": RETurn 


u unidwlni) & " *: RETurf 


RETurn 


1020  salé=salé L " * & diecit(nui-9) Ło" ": RETurn 
1838 ON nui=8 TO 9 
1948 _ sal$=sal$ ko" " & unid%(nul) & " ": RETurn 


1998 DEFine PROCedure imprime 


PRINT #5 


1208 DEFine PROCedure coloca (as) 
an,mit ` 
mit=INT (lon/2) 


IF LEN(a18)<16: alS=FILLS("S",16-LEN(a18)) k als 
IF LEN(a26)<15: a2%=a26 & FILLE("8",15-LEN(228)) 


1298 DEFine PROCedure avisa 


1320 АТ 4,18: PRINT "Prepara la impresora"VTO 17)"у pulsa cualquier tecla" 


REMark .....(espaciado a 1/8")...... 


71 Mas recibos ? (S/N)" 
S": asi: EXIT lazo 
зд: EXIT lazo 


= 
5 
= 
Б 
> 
= 
5 


= 
= 
= 
s 
> 
s 
s 
= 


ARCHIVO DE ARCHIVES 


Como muchos conoceréis, el 
Archive del QL es un potente 
programa que nos permite, me- 
diante comandos, tener acceso 
fácil y rápido a una base de da- 
tos. Pero tiene el inconveniente 
de tener que teclear todo el co- 
mando, produciendo errores al 
no escribirlo correctamente y, 
además, los usuarios están acos- 
tumbrados al sistema de Menú 
para acceder a los datos sin te- 
ner que recordar que hay que 
abrir los ficheros. 


Con el siguiente programa se 
pueden realizar las operaciones 
clásicas de altas, bajas, modifi- 


caciones, consultas o listados 
fácilmente. 

Para ello se carga el programa 
Archive y mediante edit se te- 
clea el listado que ofrecemos a 
continuación. Al ejecutarlo, 
pregunta por el fichero a ins- 
peccionar. Tecleando “?” у 
ENTER le dará un catálogo de 
los ficheros existentes. 

Después se plantea un menú 
de funciones, pudiéndose acce- 
der al resto de las funciones de 
Archive pulsando la tecla “С”. 
Para entrar de nuevo en el pro- 
grama se teclea “Maestro”. 


Vicente Galán 


escribir rept” 7,80) 


Tinsi 


i escribir en 15,0; "BAJA 


: escribir 


finatentras 
local t; 
escribir en 15 

pracedini a 


Та) 


fanproe 
proc start 


del fichero? 
tinsi 


escribir en 15,04 "NODIF1CAR 7: 


Ф IMPRESORA" confirmar: si y 


"PROCEDIMIENTO MAESTRO; 


=Siguiente: A=Anterior (CONSULTAS PANT 


=Listados impresoras F=Fin: C=Coma 


nfirmar: si yes: borrar + tinsi з fins 


volcar : балы + 


escribir en 15,0;"FIN";:eonfirmar: si yes: volcar % finsi % tinsi 


legir, reset, buscar, hallar, continuar, escribir cuenta O, 


m i5,0irept(" ",80);"Pulse una tecla para continuar" 


ribir en 15,0;"Acuerdese de volver al procedimiento con maestra'." 


8 Vicente Galan Garcia" 


catálogo "irs 


GRAFICOS EN 


Indudablemente el QL es una 
máquina excepcional en mu- 
chos aspectos, sobre todo te- 
niendo en cuenta su precio, ya 
que muchas de sus característi- 
cas sólo se encuentran en má- 
quinas que cuestan mucho más. 
Por desgracia muchas de estas 
características son desconocidas 
para la mayoría de la gente que 
desaprovecha el gran potencial 
que ofrece la máquina. 

Un ejemplo de éstos son los 
gráficos. Actualmente muy po- 
cos programas saben sacar par- 
tido a esta caracteristica, pero 
esto se puede paliar construyén- 
donos nuestros propios progra- 
mas. En este artículo vamos a 
mostrar algunos de los posibles 
manejos que se pueden hacer 
desde BASIC y esperamos que 
usted se anime y haga más prue- 
bas que nos muestren su imagi- 
nación 


Empezando 


Todos los programas que da- 
mos en este articulo se realizan 
con el modo normal de pantalla 
según se pone al encenderla, no 
obstante, si la ha modificado 
debera restituirla a su estado 
normal mediante los siguientes 
comandos: 


FILL 0:OVER 
SCALE 100,0,0 


En este modo la pantalla del 
QL se encuentra dividida en pe- 
queñas casillas formando un 
cuadriculado de 101 casillas 
verticalmente y 166 horizontal- 
mente. Estas están numeradas 
de 0 a 100 y de 0 a 165, respec- 
tivamente, estando situados los 
orígenes de ambas en la parte 
interior izquierda. Cada uno de 
estos puntos puede ser direccio- 
nado indicando sus dos coorde- 
nadas, de modo que (45,89) in- 
dica el punto situado en la co- 
lumna 45 y en la línea 89. Una 
vez establecido esto podemos 


1:MODE 8: 


EL SUPERBASIC 


aprender la primera instrucción 
grafica, POINT X,Y. Donde X 
e Y son las coordenadas hori- 
zontal y vertical de un punto tal 
como indicamos antes. Lo que 
hace esta instrucción es poner 
la posición indicada del color 
que tuvićsemos fijado previa- 
mente con INK. El programa de 
la figura uno utiliza esta ins- 
trucción para generar un anillo 
multicolor en la pantalla. En el 
listado se ve que existe una va- 
riable llamadas DIST que es la 
que mide la distancia al centro, 
de modo que no se dibuje fuera 
de los bordes fijados. Dado que 
este programa realiza un bucle 
infinito, se tiene que parar por 
medio de las teclas CTRL y es- 
pacio a la vez. 

Otra instrucción de gran uti- 
lidad es LINE A,B TO С.Р. 
Donde A,B y C,D son dos pares 
de puntos. Lo que hace el orde- 
nador al recibir esta instruc- 
ción, como se habrá imaginado 
ya, es trazar una línea entre am- 
bos puntos con el color fijado 
previamente. Aunque es una 


instrucción muy sencilla, con 
ella se pueden conseguir efectos 
espectaculares, como el que da 
el listado de la figura 2, en la 
que se han unido los puntos de 
dos lineas perpendiculares con- 
siguiendo un efecto parecido a 
una red. 

Otro ejemplo del uso de estas 
instrucción se da en el listado de 
la figura 3, que realiza una figu- 
ra conocida como cardioide si el 
número que se le da es 2, para 
otros valores superiores genera 
otras curvas también de gran 
belleza y conocidas genérica- 
mente con el nombre de epici- 
cloides. 


Curvas 


Hasta ahora todas las líneas 
que hemos usado eran rectas, 
pero nuestra habilidad puede 
aumentar considerablemente si 
usamos curvas. La más sencilla 
de estas formas geométricas es 
el círculo, y existe una instruc- 
ción especial que nos permite 
trazarlo. Esta instrucción es 
CIRCLE X,Y,R. Donde X e Y 
constituyen las coordenadas del 
punto del centro (según el for- 


PAPER 0:CLS 
REFeat Loop 

x=RND (20,80) :y=RND (20,80) 

dist= (x-50) + (4-50) + (y-50) + ty-50) 
IF dimt(900 AND азве 2750 THEN 
INK dist/100-2 


эо сз 
100 FOR 1=0 ТО 100 STEP 5 
110 LINE 1,0 10 0,10071 


азар (angle) 
41=80+50+COS (a) 

y 1=50+50*SIN(2) 
2=80+50*COS(k*a) 
Y2=50+20*SIN(K*A) 
LINE x1,y1 TO x2,y2 
END FOR angle 


160 POINT x.y 120 NEXT а 

178 EnD I 

180 END REPeat loop. 1 

100 PAPER, 11 IK 7:CL5 ROZ” 

етімен ао тал рта LJ 110 FOR a= TO 360 STEP 10 
k na p = 120 t=RAD(a) 


'=0+50w COS (e 
140 y=50+20#SIN(t) 
150 r=20-y/8 

180 ew=COS(t) *COS (t) 


170 ELLIPSE xy ,r,ex,0 
180 END FOR a 


80 х=50 


radio=50 
REPeat dibujo 

IF lado=1 THEN x=x-viejotradio! 
CIRCLE x ,50,radio 

Viejo=radio 

radio=radio-RND(1 TO 4) 

IF radio<ó THEN EXIT dibujo 
END REPeat dibujo 


170 
180 


ilado=0: ELSE x=x+viejo-radio:lado=1 


mato indicado anteriormente) y 
R es el radio. Como en ocasio- 
nes anteriores, podemos generar 
una figura exclusivamente a 
base de círculos pero que sin 
embargo posea gran belleza. El 
listado de un ejemplo de esto se 
da en el listado 4, que realiza 
una'serie de círculos concéntri- 
cos con un radio que decrece 
aleatoriamente 

Otra instrucción existente en 
el QL y que no es normal en 
otros ordenadores es la ELLIP- 
SE X,Y,R,EX,ANG. Todos 
aquellos que posean fundamen- 
tos de matemáticas gráficas sa- 
brán que el círculo es en reali- 
dad un caso particular de la 
elipse, o dicho de otro modo, 
que una elipse es un circulo «de 
goma» que se estira por uno de 
sus lados. Para hacer esto en 
nuestro ordenador debemos fi- 
jar algunos parámetros. Los tres 
primeros ya los conocemos ya 
que son los mismos que en el 
círculo, y los dos últimos son 
los que fijan la excentricidad 
(achatamiento si se prefiere). 
Esto se fija en realidad con el. 
primero, que cuando vale 1 
hace un círculo y si es menor 
hace que esté estirado hacia 
arriba y si es mayor que 1, hace 
que estirado hacia los lados. El 
último parámetro, que hemos 
denominado ángulo, hace que 
la elipse gire en la pantalla con 
el ángulo indicado (en radia- 
nes), de modo que (para los que 
estén interesados en el efecto 
matemático) resulta lo mismo 
un factor de excentricidad de 
0,5 y un ángulo de 0 que un 
factor de 2 y un ángulo de pi/4 
radianes. 

En el listado 5 se muestra un 
ejemplo de aplicación de este 
comando para dibujar secciones 
de un toro (un donuts para los 
amigos). 

Con estas instrucciones ya se 
pueden realizar auténticas ma- 
ravillas gráficas, aunque nos fal- 
tan algunos comandos más que 
se explicarán con más profundi- 
dad en el próximo mes. 
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М Еѕіе interesante programa que nos ha enviado Angel Soria 
constituirá una verdadera delicia para todos aquéllos que 
disfruten haciendo simulaciones de batallas en casa. 

El programa es fundamentalmente estratégico y por tanto no 
tiene una estructura de matar marcianos sino un 
planteamiento más «serio», ya que cada jugador (dos como 
mínimo) debe distribuir sus ejércitos entre todos sus países 
y atacar en función del equilibrio de fuerzas existentes. Este 
planteamiento es similar al juego del tablero de Risk que 
muchos conocerán y las reglas son similares, aunque las 
repetimos más adelante para aquéllos que 


las desconozcan. 


= а estructura interna es algo 

complicada, ya que hay 

| cuatro programas distintos. 

ш El primero (listado 1) se en- 

carga de cargar la pantalla 

de presentación y el programa 

principal (listado 3), éste a su vez, 

antes de ponerse en marcha carga 

un pequeño bloque de tipo CODE 

en el que hallan diversos datos, in- 

cluyendo los UDG, el mapa de 

pantalla y la calavera que aparece 
al final del juego. 

Este bloque lo crea el listado 4 y 
la pantalla de presentación con el 
listado 2. Por tanto, para hacer una 
cinta que funcione. hay que grabar 
primero el programa 1 con SAVE 
«nombre» LINE 1, a continuación 
se graba la pantalla de presenta- 
ción al ejecutar el programa 2, des- 
pués se escribe el tercer listado, 
también con SAVE «nombre» 
LINE 1 y por último el resultado 
del programa cuatro. Un consejo 
importante: guarde en cinta aparte 
todos los programas antes de eje- 
cutarlos. Un código máquina equi- 
vocado puede destruir el progra- 
ma. 

Si se desea suprimir la pantalla 
de presentación y el cargador ini- 
cial, hay que introducir la línea 


4 RANDOMIZE: CLEAR 52299 
en el programa principal. 


Si al ejecutar el programa cuatro 
da error en las sentencias DATA, 


indicara la linea donde esta ćste, 
por lo que basta con revisarla. Si el 
error fuese que el mapa no aparece 
bien definido, habría que revisar 
de la 10 a la 250, estas mismas se- 
rían las responsables de que los 
continentes no se rellenen correc- 
tamente. 
El programa principal 

La estructura del programa prin- 
cipal es compleja debido a su lon- 
gitud y a que era necesario para 
dotarlo de mayor rapidez. No obs- 
tante los bloques principales son 
los que siguen, indicados por lí- 
neas: 

1-25 Carga de bytes y prepara 
algunas matrices. 

100- Subrutinas. 

110- Borra parte inf. pantalla. 

120- borra desde la linea 5. 

130- espera la pulsación de una 
tecla. 


: Dibuja pantalla. 
y 170-: Músicas. 

180-: Búsqueda de propiedades 
de evaluación del objetivo. 

190-: Busca si hay más de un te- 
rritorio con 1 ejército, con el fin de 
conceder uno si no lo hay. 

500-: Efectos para cuando se 
consigue el objetivo. 

1000-: Subrutina para la coloca- 
ción de ejércitos. 

1500-: Efectos para cuando un 
jugador pierde sus territorios, 

2000-: Programa principal, con 
el menú principal. 

2035-: Salto a las opciones. 

2040-2185-: Se comprueba si un 
jugador ha conseguido su objetivo. 
Sólo se comprueba el del jugador 
de turno. 

2200-22 
salto a menú 

2290: Submenú. 

2500: Rutina de atacar. 


: Siguiente jugador y 


FR 
66 PRINT INK 7; FLASH ОАТ 14 
хжх WAR GAME xx 
x " 
70 INK 5: FOR n=15 TO 21: FRIN 
Т АГ n,0; FLASH 0,,: NEXT п 
BO PLOT 180,10: DRAW 20,28: DK 
10 CLEAR 52299 AW —10,-32: DRAW -10,14,1: DRAW 
20 ВЕЕР .1,50: INK 0: BORDER O| |40,0 
zs PAPER O: CLS 85 PLOT 296.24: DRAW 5.6 DR 
50 PRINT АТ 10,8; PAPER 5; INK| |AW 0,6,-4: PLOT 201,24: PLOT 216 
1;"THE LAST BATTLE"; FLASH 1;ат | |,24 
12,10;"is loading.” 90 PRINT FLASH OAT 17,235 ІМ 


40 LOAD ""SCREENS 
50 PRINT АТ 20,0; 
60 LDAD "" 


PROGRAMA 2 


10 BRIGHT 1: BORDER ©: PAPER O| ING" 
: INK О: FLASH 1: CLS 100 DATA 0,1,1,1,0,1,0,1,0,1,1, 

20 FOR m=5 TO 12: FOR п-о TO 5 1,0,0,0,0,1,0,0,0,1,1,1,0,1,1,1, 
1: READ a 03121:1,0 

ЗО PRINT PAPER ók(a>1)3 2 105 DATA 0,0,1,0,0,1,0,1,0,1,0, 
x((a=1) OR (a=5))3AT msn; 0,0,0,0,0,1,0,0,0,1,0,1,0,1,0,0, 

46 NEXT п: NEXT m 0,0,1,0,0 

50 PRINT INK 7; FLASH O3AT 5, 110 DATA 0,0,1,0,0,1,1,1,0,1,1, 
03" ЖЕЖ WAR GAME XX 0,0,0,0,0,1,0,0,0,1,1,1,0,1,1,1, 


К 23 "ат 20,25:"1985" 
95 PRINT АТ 18,8; 


INK 43 "LOADI 


3500-2550: Pide los datos. 
2555-2707: Efectúa el combate. 
2710-2800: Mov. Tropas. 


0() =0bjetivo. 
E() =todo sobre los territorios. 
z() = empleada en el control del 


LDIR 
RET 
Los valores de DE y HL se cam- 


3000: Rutina de información. 
3500: Rutina de ver el objetivo. 
4000: Efectos para fin desde 


mapa. (POKES). 


menú. 
8500: Subrutina de control del va). 
mapa. 9) 
9000: Instrucciones у toma de mi 


datos. asi como inicialización. 
9500: Datas para las matrices. Código máquina: 
Variables: 
nj = п.° jugadores. 
tj =tipo juego | =C. mundo. 
a$ (nj. 8) = Nombres de los juga- 
dores. 
] =jugador de turno. 


esta rutina: 


pS() = nombre países. 
pa ура = pais ataca/defiende. 
r = refuerzo. (Ejércitos de reser- 


10 jugador que ha perdido todo. 


En él están el mapa, la calavera 
y los gráficos (UDG), además de 


LD DE.4000h (16384) 
LD HL,E458h (58456) 
LD ВС,1800Һ (6885) 


bian para la calavera (tambićn 
BC). 


Instrucciones de uso 


El juego es para varias personas 
(de 2 a 4) no pudićndose jugar con- 
tra el ordenador. 

Existen dos modalidades de jue- 
go, en la primera se lucha para 
conseguir el objetivo especifico y 
la segunda es para conquistar el 
mundo. Avisamos que en este se- 
gundo caso la partida puede durar 
varios dias, ya que en el primero 
dura varias horas. 


о э 


115 DATA 0,0 


49,0 
DATĄ 0,0,1,0,0,1,2,1,2,1,5 
2.1,1,1,2,1,0,5,0.1,1,5, 


135 DATA 0,0,0,0,0,0 


2,0,2.0.0,0,2,0,0 


SAVE "TLBsp"SCKEENS 


PROGRAMA 3 


1 REM 

2 КЕМ НИН A.S. 1985 ШИН 

3 REM 

4 RANDOMIZE 

5 PRINT АТ 20,03: LOAD ""CODE 
10 PRINT AT 18,4; INK 4; PAPER 


0; FLASH 1;"STOP THE TAPE": 

n=1 TO 10: BEEP .01,25: 

1,20: NEXT n 
15 DIM z (40): 


FOR 
ВЕЕР „О 


RESTORE 9550: 


FO 
| 


R п=1 TO 40: READ a: LET z(n)=a: | 


NEXT n 

20 RESTORE 9530: DIM p$(40,13) 
: РОК m=1 TO 40: READ a$: LET p$ 
(n)=a$+". "s NEXT п 


25 GO TO 7000 
100 КЕМ HWH Subrrutinas MWM HH 
105 REM 


110 FOR a=18 TO 21: PRINT AT a, 


13" u 
: NEXT a: RETURN 

120 FOR m=5 TO: 20: ВЕЕР .01,т= 
PRINT АТ m,0,,: NEXT m: RETURN 


130 PRINT AT 21,73 
zy FLASH 03 
a tecla.": PAUSE 0: RETURN 

140 CLS : PRINT ІМК 13AT 1,63" 
Ж THE LAST BATTLE ж"; PAPER O;AT 


INK 2; FLASH 
INK 1;"Pulsa un 


PETE 
145 PRINT AT 0,03"F "¿AT 0,313" 
"AT 2,05" "АТ 2,51:" Ат 4,03 
AT 4,313" “¿AT 21,0; АТ 2 
1,313" "=. RETURN 

150 RESTORE 160: FOR m=1 TO 19: 
READ а: ВЕЕР .15,a: NEXT m 

155 FOR m=1 TO RESTORE 165: 
FOR п=1 TO 16: READ a: BEEF, .14, 
la: NEXT n: NEXT m: RETURN 

160 DATA 2,4,5,2,5,5,4,2,4,-5,4 
-5,7,4,7,7,5,4,2,5,4,2 
L 165 БАТА 9,14,12,14,12,10,10,9, 


2: 


Guía del comprador de Todospectrun 


r 
* ALSISTOCKS Acceso directo (2 segundos, 1.800 artículos por fichero y cartucho, 14.400 en | 
disco 800 K = 
* ALSIMAIL 10 ficneros con impresión de recibas mensuales, mailing, acceso directo, 800 
fichas por fichero y cartucho 
* CANBIALSI Impresión de letras а 
* ALSICONT 81000 asientos еп cartuc о воо К, 1.3 segundos ро ELECTRONICA 
asiento, balances y extr subcuenias en todas las И 


cuentas, cantidad de 
* COMERCIAL 6 Facturación SOK, É¿SANDOVAL sa 
mailing, albaranes, et — a 
+ ALSIFIN Todo tipo de cálculos financieros. 
š ALSIFINCAS Administración de fincas DISTRIBUIDORES DE: 
Oferta: Sinclair QL + impresora + monitor +ud. discos + lote programas 242.750 Ptas. COMMODORE-64 
Oferta: Sinclair QL + impresora + lote programas 149.750 Ptas. ORIC-ATMOS 


ZX SPECTRUM 
SINCLAIR ZX 81 


| ORDENADORES e AS 
e QL - AMSTRAD - SPECTRUM -32 
\ CASSETTES NEW BRAIN 
PROGRAMAS x= DE CALIDAD PROBADA DRAGON-64 
e Contabilidad QL ..20.000 pta 5 EE 
pros CASIO FP-200 
e Nóminas QL ..... 25.000 ptas. 


ELECTRONICA SANDOVAL, S. A. 
C/ SANDOVAL, 3, 4, 6. 28010-MADRID 
Telefonos: 445 75 58 - 445 76 00 - 445 18 70 


447 42 01 
CAMAFEO mc. Dep. 03 С/ SANDOVAL, 4 y 6 
José Lázaro Galdiano, 1. 28036 Madrid. Centralita 445 18 33 (8 lineas) 


A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 

con esta funda, y beneficiese 

de un 30% de descuento 

sobre su precio normal. 


Una vez puesto en marcha el 
programa se nos pide el número de 
Jugadores y a continuación el 
modo de juego, siendo «c» la con- 
quista del mundo y «o» la de un 
objetivo específico. 


A continuación se introducen 
los nombres de los jugadores (hasta 
8 caracteres) y luego empieza el 
juego, eligiendo el ordenador alea- 
toriamente quien empieza prime- 
ro. 

Si se ha elegido la conquista de 
un objetivo se pide entonces que se 
introduzca la clave secreta que nos 
permitirá ver cuál es nuestro blan- 
co. Esta clave, evidentemente, es 
distinta para cada jugador y tiene 


7.2.10,7,9,5,4,-2,5,4,2 
170 RESTORE 175: FOR m=1 TO 12: 


READ а: ВЕЕР .15,a: NEXT m: RET 
URN 

175 DATA 7,7,12,12,11,11,5,5,9, 
95727 


180 FOR n=a TO с: 
THEN LET b=b+1 
185 NEXT n: RETURN 
170 LET г1=0: FOR m=1 ТО 40: IF 
tím,1)=j1 THEN IF t(m,2)>1 THE 
М RETURN 

175 NEXT m: LET ri=1: RETURN 
500 КЕМ MHM Final NAK 

505 REM 

510 FAFER O: INK 7: CLS 

515 LET oo=USR 58444: ВЕЕР .5,3 
O: 
520 


IF tin, 1)=32 


PRINT ІМК O; PAPER 7;AT 19 


26;"*X THE LAST BATTLE x" 

525 РОКЕ 58448,76: POKE 58449, 2 
04: POKE 58452, 24 

530 FOR m=1 TO 2: FOR п-о TO 7 
STEP .5: ВЕЕР .05,-10: ВЕЕР .05, 
—5: BORDER п: NEXT п: NEXT m 
535 BORDER O 

540 FOR n=1 TO 20 STEP 2: 
МТ (n/2.6) 

545 BEEF .04,10 


INK I 


=) 


550 CLS : LET oo=USR 58444 
555 FAUSE nx.7 

560 NEXT n 

565 POKE 58448,88: 
28: POKE 58452, 27 
570 FOR п=1 TO 156 
575 PRINT АТ 21,0; 
2;(" 

LA ULTIMA BATALLA HA TENIDO 


POKE 58449,2 


FAPER 6; INK 


LUGAR "+a$(52)+" ha con 
seguido su objetivo. L- 
A GUERRA HA DESTRUIDO EL MUNDO 


R.1.P. 
")(n TO 31+n) 
580 BEEP .05,30: NEXT n 
570 BEEP 2,-10 


600 FOR m=14 TO 10 STEP -і: FOR 


n=.1 ТО .002 STEP -.01: ВЕЕР п, 
m: ВЕЕР n,m-5: NEXT п: NEXT m 
610 PAUSE 5: ВЕЕР 1,-10: PAUSE 
50: GO TO 9000 

1000 REM ШИЙ Foner Ejerc. WHA 
1005 REM 

1020 LET oo=USR 58444: 
00 

1025 IF %(%,12<>31 THEN ВЕЕР .1 
„0: PRINT AT 21,73 INK 23 FLASH 
1;"No te pertenece.": PAUSE 50: 
GO SUB 110: GO SUB 8550: GO TO 1 


60 SUB 85 


CONCURSO MATEMATICO 


El nómero 
más largo 


ado que el mes de di- 

ciembre ofrece gran- 

des ratos de descanso 
a la mayoría de nuestros lec- 
tores, la redacción de la re- 
vista ha decidido proporcio- 
nar a todos nuestros lectores 
una oportunidad de aprove- 
char esas horas a la vez que 
mejoran sus dotes programa- 
doras por medio de este con- 
curso. 

El objetivo a conseguir es 
descomponer un número no 
primo en sus divisores, cosa 
no muy difícil normalmente, 
pero en este caso algo más 
complicada, ya que el núme- 
то еп cuestión tiene 29 cifras 
y, por tanto, no se puede cal- 
cular normalmente recu- 
rriendo a trucos como los 
que aparecen en el artículo 
de infinita precisión que apa- 
rece en este mismo número. 

Esperamos que os animéis 
a participar y nos demostréis 
vuestro alto nivel. 


Bases del 
concurso 


1. Los concursantes de- 
berán descomponer el núme- 


Este impresionante listado de 
doce páginas es el mayor 
número primo conocido. El 
ordenador (un potente IBM 
AT) tardó seis horas y media 
en generarlo usando un 
programa compilado. 


ro 234791596001573561756 
29850677 en sus factores pri- 
mos (que no sean a su vez di- 
visibles por ningún otro). in- 
dicando cuántas veces apare- 
ce cada uno. Este cálculo 
puede realizarse en una orde- 
nador Sinclair (ZX80, ZX81. 
ZX: Spectrum, ZX Spectrum+. 
ZX Spectrum 128 o QL). 


2. Todos los participan- 
tes deberán enviar al concur- 
so: dichos factores primos 
junto con la cantidad de ve- 
ces que aparecen. El progra- 
ma empleado (indicando el 
lenguaje e incluyendo una 
cinta o microdrivre con el 
listado) y el tiempo aprox 
mado que tardó en resolver 
el problema. Si este tiempo 
fuese pequeño (lo dudamos) 
deberán indicarse también 
los segundos, en el caso nor- 
mal basta con decir las horas 
y los minutos aproximados. 
Estos tiempos y el buen fun- 
cionamiento del programa 
estarán sujetos a comproba- 
ción. 


3. Podrán participar to- 
dos los lectores de la revista 
que no trabajen en la redac- 
ción de la misma, 


4. El jurado estará com- 
puesto por la redacción de 
Todospectrum. 


5. А la hora de puntuar 
se tendrá en cuenta: la rapi- 
dez (considerando el lenguaje 
empleado). el buen diseño 
del programa y, naturalmen- 
te, que los resultados sean 
correctos. 


6. La fecha tope de admi- 
sión de programas es el día 
15 de enero. La relación de 
premiados aparecerá en el 
número de febrero. 


7. Cada concursante po- 
drá participar cuantas veces 
quiera, pero en cada una de 
ellas debe -hacerlo con un 


programa distinto (aunque es 
conveniente que los resulta- 
dos coincidan). 

8. Al ganador se le entre- 
gará un lápiz digitalizador de 
la marca PIN SOFT, una co- 
lección de Anaya Multime- 
dia y una colección de juegos 
ABC Soft. 


Entre los demás partici- 
pantes se sortearán otros 
nuevo lápices digitalizadores 
de PIN SOFT. 


Recuerda: Hay que hallar 
todos los divisores (con el 
número de veces que aparece 
cada uno) del número: 

234791596001573561756 
29850677. 


PROGRAMA 3. } 


que tener un máximo de tres ca- 
racteres. 

Después de esto el ordenador in- 
forma del número de territorios de 
cada jugador y del número de ejér- 
citos disponibles (3,5 por el núme- 
ro de territorios) y después de dar- 
nos información acerca de las te- 
clas de manejo empieza el juego. 


Colocación de ejércitos 


Lo primero que hay que hacer es 
repartir los ejércitos que el ordena- 
dor ha dejado sin colocar, para ello 
hay que mover el cursor con Z y X 
y colocarlo encima del país donde 
queramos quitar o poner, cuando 
estemos en él pulsamos zl espacio 


y aparece un menii con tres opcio- 
nes: 

1. Poner cjércitos. Nos pide 
cuántos ponemos (de 0 a 9). Si se 
colocan todos los que quedan en 
reserva pueden pasar dos cosas, si 
todo se ha correctamente se sale de 
esta parte de programa, pero si hay 
algún territorio sin ejércitos nos 
anulará el movimiento, ya que no 


puede haber ningún territorio sin 
ejércitos. Tampoco se pueden de- 
jar ejércitos en reserva, por lo que 
no se saldrá de esta opción hasta 
no colocarlos todos. 

2. Quitar ejércitos. Funciona 
de un modo similar a la anterior 
pero preguntando los ejércitos que" 
se quitan y que van a la reserva. 

3. Esta opción nos devuelve al 
menú principal. 

Aunque de una sola operación 
se pueden quitar o poner un máxi- 
mo de nueve ejércitos de cada vez, 
esta operación se puede repetir y 
meter más ejércitos, no existiendo 
límite al número de ejércitos que 
puede tener un país. 


025 
1030 GO SUB 140 


sp$(t)zAT 11,53 "Нау: 
ejercitos." 
1040 PRINT AT 16,6; 


р" (0...9)? "3s 


Е 2%<"0" OR z$>"9" 


1055 PRINT АТ 8,7; "Тиғпо de "ҙаФ 
(;1);AT 6,2;"- COLOCACION DE EJE 
RCITOS ="5AT 10,5; "Territorios: " 
"att. 213" 


INK 2:1"; I 


"1" THEN PRINT АТ 16 
"ISTRE ғ" ">С TO 2) 
s." 


1055 PRINT АТ 20,4; "Cuantos ";у$ 
Оз LET z$= 
INKEY$: ВЕЕР .05,20: PRINT z$: 1 
THEN ВЕЕР „1 


PAUSE 


+0: 


1060 IF х 


t(t.2)-VAL z$: 
EEF .1,20: 
" ejercitos. 


50 TO 1055 
1057 IF x$="2" 
=t(t,2)) ОК z$="0" 
Т 20,4;" No puedes hacer eso.”,: 
PAUSE 50: 


THEN IF (VAL z$> 


THEN FRINT A 


60 TO 1040 

"2" THEN LET t(t,2)= 
LET r=r+VAL z$: B 
PRINT АТ 11,10;%(%,2) 
"¡AT 16,6;"Tienes 


NK 1;".- Poner ejercitos."zAT 17 MASON A 2 w; 3 
s6; INK 2;"2"; INK 1;".- Quitar а : PAUSE 80: GO 
NZS BEAM ay IE EEEN чода зво нен бур VAS 
wy жс Ы 2 + <0 THEN PRINT AT 20,4;" No pued 
O AE ЛЕ за es hacer eso.",: PAUSE 50: GO TO 
Р A Š 2 1040 
сада арест арына ШЕТ 4а) [1045 LET pros FOR гі ТО 408 IE 
OR x$>"3" THEN BEEP 1,0: 60 TO t(ím,i)=j1 THEN IF t(m,2)=0 THEN 
1040. 51505 LEJ b=b+1: IF t=m THEN IF z%< 
1043 IF x$="3" THEN GO TO 1000 >"0" THEN LET b=b-1 
1045 LET y$="quitas": IF x$="1" 1070 NEXT m: ТЕ Ь<>0 AND г-УА z 
THEN LET y$="pones": 60 TO 1050 $<b THEN BEEP .1,0: PRINT AT 19 
1050 PRINT AT 16,0,,,,,,: IF x$= зіз!І ов necesitas para ocupar lo 


6; "Tienes 5 territorios desocupados;",A 

ejercito| |Т 21,5; PAPER 5;"Movimiento anul 
або. ": PAUSE 10 GO TO 1000 

1075 ВЕЕР „05,10: LET t(t,2)=t(t 


,2)+VAL z$: LET r=r-VAL z$: PRIN 
Т AT 11,103t(t,2)3 
“¿AT 16,13; (STR$ r+" 


ejercitos. 
Wyre KOSZY 


A continua: 
aparecidos hasta ahora. 


Núm. 1+250 pts. 

Cómo usar el microdrive/Progra- 
mación Basic/Ampliación Basicare/ 
Rutina despertador/Variables del sis- 
tema/Entrada datos mediante másca- 
ras/Protección del software/Sintoni- 
се su Spectrum/Programas. 


Núm. 3*250 pts. 

Novedades sonimag '84/Ampliando el 
Basic/Programas para ordenar pro- 
gramas/Gráticos con el VU-3D/Len- 
guaje Forth/Archivos en microdrive/ 
Programación de un interface de im- 
presora/Programas 


Núm. 5*250 pts. 

Floppys para Spectrum/Diseño asis- 
tido por ordenador/64 Caracteres por 
línea/Juego de la vida/Pascal/Asi ha- 
cemos las portadas/Control de eva- 
luaciones/Programas. 


Complete su colección de 


Todospectrum 


п le resumimos el contenido de los ejemplares 


Núm. 2*250 pts. 

Gráficos profesionales/Desplaza- 
miento pixel a pixel/Utilización de 
rutinas/Construcción del interface 
centronics/Programas de utilidad pa- 
ra microdrive/Rutina reset en código 
máquina/Análisis del editor de textos 
Tasword/Interfaces para impresoras/ 
Programas. 


Мат. 4-250 pts. 
De profesión: programador/Consola 
para el Spectrum/Comparación códi- 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascal/Pro- 
gramas. 


Núm. 6 «250 різ, 

Representación de funciones/Todos 
los caminos conducen a la ROM/Jue- 
gos/Pascal/Construcción de un lápiz 
óptico/Programas de gestión. El SITI, 
Logo: tortugas para todos/Interrup- 
ciones del Ż-80/Programas. 


Para hacer su pedido, rellene este cupón HOY MISMO 


y envielo a: 
Todospectrun s= мило, 277 
Tel. 733 96 62 - 28020 MADRID 


Ruego me envien los siguientes ejemplares atrasados de TODOS- 


PECTRUM al precio de 250 pts. 


Por favor envienme tapas para la encuadernación de mis 
ejemplares de TODOSPECTRUM, al precio de 600 pts. más gastos de envío. 
El importe lo abonaró 

O POR CHEQUE O CONTRA REEMBOLSO O CON МІ TARJETA DE 
CREDITO О AMERICAN EXPRESS O VISA O INTERBANK 

Número de mi tarjeta II ШШ 
Fecha de caducidad .. Firma 

NOMBRE 

DIRECCION 

CIUDAD 


(cada tapa es para 6 ejemplares) SEA 


„ Cuando todos los jugadores fina- 
lizan de colocar sus ejércitos se 
pasa al juego propiamente dicho. 


Menú principal 


Este también ofrece varias op- 
ciones que detallamos a continua- 
ción. 

1. Atacar. Esta opción nos 
muestra el mapa del mundo y se 
nos pide que elijamos el pais que 
ataca (que debe ser nuestro) y el 
que defiende (que debe ser del con- 
trario), entre ambos debe haber 
frontera, es decir, deben estar el 
unoal lado del otro. Una vez elegi- 
dos ambos se les pide al atacante 
que diga con cuántos ejércitos ata- 


ca (hasta un máximo de tres) y lue- 
go al defensor de le pregunta lo 
mismo. 


El número de ejércitos con los 
que se ataca o defiende es el núme- 
ro de dados que tira ese jugador (en 
realidad lo hace el ordenador) y 
sólo se considera el dado más alto. 
La puntuación más alta de los dos 


indica el que gana y en caso de em- 
pate gana el defensor. 

Por ejemplo el atacante va con 
tres ejércitos, y saca 1 3 3 y si el de- 
fensor tiene dos ejércitos y saca 2 y 
4, gana el defensor por tener un 
cuatro mientras que el atacante ha 
obtenido solamente un tres como 
máximo. 

El jugador que pierda se quedará 
sin los ejércitos con los que ataca o 
defiende. Si un jugador pierde to- 
dos los ejércitos de un territorio, 
éste pasa a poder del contrincante. 

Medallas: 

1. Si gana el atacante, aparece- 
rán las medallas que posee y se le 
concede una (no aparece en la lis- 


PAUSE 80 

1080 1F r=0 THEN RETURN 

1090 GO TO 1000 

1500 REM A HEFin de jugador Hill li 
1505 REM 

1510 POKE 58448, 76: 
04: POKE 58452,24 
1515 BEEP 1.5,—40 


POKE 584497, 2 


1520 PAPER О: INK 7: CLS : LET o 
o=USR 58444 
1525 FOR f=1 TO 84: PAUSE 3: PRI 


NT PAPER 6; BRIGHT 1;AT 
21,03 (* 
Fara el jugador "+a$(m)+" 
ha sido su ultima batalla. 
R.I.P. 
")(Ғ TO 51): 
ВЕ ` 
1530 FOKE 58448,88: POKE 58449,2 
28: POKE 58452, 27 
1540 FOR f=1 TO 8: 
ВЕЕР .01,z: 


INK 2; 


ВЕЕР .01,55: МЕХ 


FOR z=40 TO 1 
5-23 NEXT =: М 
RETURN 

Mi Kl i 


1545 INK 0: PAPER 7: 
2000 REM Mm F.Frincipal 
2005 REM 

2010 BEEP .1,40: 
SUB 140 

2020 PRINT АТ 6,7;"Turno de ";а$ 
Cj) AT 9,8; ІМК 33 "MENU"; AT 11,9 
т INK 2:01"; INK 1:%.-Atacar.""T 
АВ 9; INK 2;"2"; INK 13".-Inform 
асіоп."”ТАВ 9; INK 23"3 INK 1; 
".-Ver el Objetivo." TAB 9; INK 
23 "s INK 13".—Fin del Juego." 
2025 PRINT АТ 20,1;"Introduzca о 
pcion."3 FLASH 13"2": PAUSE Оз L 


BEEP .01,30: GO 


ET x$=INKEY$: BEEF .1,30 
2030 IF x$<"1" OR x$>"4" 
EEP .1,0: 60 TO 2025 
2035 60 TO 2000+500XVAL x$ 

2040 GO SUB 140: IF tj=1 THEN G 
O TO 2150 
2045 LET 32-3: 


THEN B 


LET b=0: GO TO 20 


25+(o(;)%x15 AND o(j)<8)+(125 AND 
0(j)>=8)+(15 AND o(j)=1) 

2055 LET a=1: 
80 


LET c=40: GO SUB 1 


2060 IF b>=72/nj THEN GO TO 500 
2065 60 TO 2150 

2070 LET a=10: LET c=13: 60 SUB 
180: LET a=26: LET c=35: 60 SUB 
180 

2075 IF b=14 THEN GO TO 500 
2080 60 TO 2150 

2085 LET a=1: LET c=9: GO SUB 18 
O: LET a=14: LET c=19: 60 SUB 18 
о 

2090 IF b=15 THEN 60 TO 500 
2093 GO TO 2150 

2100 LET a=10: LET c= 60 SUB 
180: LET a=20: LET с-25: 60 SUB 
180: LET a=36: LET c=40: GO SUB 
180 

2105 IF b=15 THEN GO TO 500 
2110 60 TO 2150 

2115 LET a=1: LET c=9: GO SUB 18 
O: LET a=14: LET c=19: 60 SUB 18 


PROGRAMA 3 


0: LET а=56: GO SUE 18 
о 

2120 IF b=20 THEN GO TO 500 
2125 60 TO 2150 

2150 ГЕР 
180 
2135 IF b=16 THEN GO ШЕ 500 


LET c=40: 


LET c=35: 60 SUE 


2155 IF Ь<>0 THEN GO TO 2170 
2160 IF 9(;)=т+7 THEN LET j2=z: 
60 TO 500 

2165 IF ¿(ím)<>1 THEN LET j(m=1 
: 60 SUB 1500 

2170 NEXT m 

2175 IF tj=2 THEN 60 TO 2200 
2180 LET b=0: FOR n=1 TO nj: IF 
¿ím)=0 THEN LET b=b+1: LET )2-п 
2185 NEXT п: IF b=1 THEN GO TO 
500 

2200 LET ; 


=53+1: IF j>nj THEN LE 


2205 IF ;‹;)=1 THEN 60 TO 2200 


210 BEEP .1,40: BEEP .01,30: GO 
TO 2020 

290 REM HH H Sub Menu. li li li 

2275 REM 


2400 60 SUB 140 

2405 FRINT AT 6,7 
(3)3AT 9,8; 
з INE 291%) 


"Turno de "за 
ENU"¿AT 11,9 
„-Salir-""TA 


B 9; INK 2 
S STAB 9; 
ov. Tropas.” 


JE 


2410 FRINT AT 20, 
pcion."; FLASH 13" : PAUSE 0: L 
ЕТ x$=INKEY$: ВЕЕР .1,30 

2415 IF x$="1" THEN 60 TO 2040 
2420 IF x$="2" THEN LET та=5: G 
O SUB 140: GO TO 2715 

2425 IF x$="3" THEN GO SUB 110: 
GO TO 2805 

2430 ВЕЕР .1,0: GO TO 2410 

2500 REM HMH Atacar НИШ 

2505 REM 

2510 LET oo=USR 58444: 


"Introduzca o 


FOR т-і Т 


2515 IF п-і THEN FRINT АТ 20,1; 


"Atacante"; FLASH 1; INK 15"? 
60 TO 2525 

2520 PRINT AT 20, Defensor "; 
FLASH 1; INK 13"? 


2525 IF m=2 THEN POKE b, (PEEK b 
)-128 

2525 60 SUB 8500+55% (m=2) : 
.1,30: PRINT AT 20,13" 

" 


BEEF 


2530 IF (t(t,10<>j AND m=1) OR < 
%(%,13-ҙ AND m=2) THEN ВЕЕР .1, 
Oz PRINT AT 21,9; INK 2; FLASH 1 
¡"No se puede.": PAUSE 50: GO TO 
2510 

2535 IF m=1 THEN LET pa=t: 
О 2545 

2540 LET pd=t: FOR d=3 TO 6: IF 
THEN NEXT PRINT 
s73"No hay + 
PAUSE 50: 60 TO 2510 
.1,40: NEXT m 


60 T 


FLASH 
rontera. "z: 
2545 BEEP 


ta) y a veces un ejćrcito. A la dere- 
cha de la tabla de medallas está la 
cotización en ejércitos de cada 
una, ya que se pueden canjear por 
éstos. El ordenador pregunta a 
continuación si se cambia, si se 
responde que sí, nos dará a elegir 
entre cinco opciones. 

Si no se realiza el cambio se 
vuelve al movimiento de tropas y 
después al submenú. 

2. Si gana el defensor, apare- 
cen las medallas.que éste posee, se 
le concede otra y un ejército, no 
habiendo en este caso opción para 
cambio de medallas ni de tropas. 

El submenú tiene tres opciones 
distintas: la primera nos devuelve 
al menú principal, la segunda nos 
permite cambiar medallas por 


ejércitos y la tercera realiza los 
movimientos de tropas. А este 
menú se va independientemente 
de que se hayan realizado conquis- 
tas. 

La segunda opción del menú 
principal nos da información de 
los ejércitos que posee cada juga- 
dor y de los territorios. 

La tercera nos muestra el objeti- 
vo que tenemos que conquistar, 
previa introducción de la clave se- 
creta. 

La última opción del menú 
principal termina el juego. 


Resumen de los 
objetivos del juego 


El juego, continúa hasta que un 
jugador conquista el territorio in- 


dicado, apareciendo entonces un 
dibujo y un mensaje. Si un jugador 
pierde todos sus territorios, queda 
eliminado, siendo esto indicado 
por el ordenador. 


Si un jugador conquista un terri- 
torio y no posee ejércitos para ocu- 
parlo, el ordenador le dará uno au- 
tomáticamente. 


El movimiento del cursor por el 
mapa va de continente en conti- 
nente no siendo exactamente de 
derecha a izquierda o viceversa. 
Por ejemplo, si sale por Oceanía, 
se va a América. 

Con esto quedan explicadas to- 
das las instrucciones del juego, 
ahora sólo queda teclear y saber es- 
trategia. 


TODOSPECTRUM es una publi- 
cación mensual que le ayudará a 


obtener el máximo partido a su 
SPECTRUM y al ZX 81. 


CONOZCA LAS VENTAJAS DE SUSCRIBIRSE A 


ADEMAS, le hacemos un 25 % DE DESCUENTO 
sobre el precio real de suscripción (12 números) 
VALOR REAL DE 


OFERTA ESPECIAL 
SUSCRIPCION DE SUSCRIPCION USTED AHORRA 
732660 ртдз. 2.700 PTAS. 


900 PTAS. 


APROVECHE АНОВА esta oportunidad irrepetible para suscribirse a TO- 
DOSPECTRUM. Envie HOY MISMO la tarjeta adjunta a la revista, que no 
necesita sobre ni franqueo. Depositela en el buzón más cercano. Inmediata- 
mente recibirá su primer ejemplar de TODOSPECTRUM más el REGALO. 


Bravo Murillo, 377 
28020 MADRID 
и aa k=. ОРТ ЗН 


2550 60 SUB 140 

2555 PRINT AT 6,2; ">Ataca "za$(j 
37 ТАВ 4; ІМК 1;"Desde "ір%(ра)?Т 
АВ 15;t(pa,2);" ejercitos.” 

2560 PRINT АТ 11,2;">Defiende "; 
a$(t (pd,1)) TAB 4; INK 1; "Desde 
":р% (ра) ° TAB 13;3t(pd,2)3" ejerci 
tos." 

2565 FOR п=1 TO 2: PRINT АТ 20,3 
"Боп cuantos еҙ. "; 

2570 IF n=1 THEN PRINT "atacas 
"s FLASH 13"?": GO TO 2580 

2575 PRINT "defiendes "; FLASH 1 
RZ 

AE 


2580 LET a=t(pdź (n=2)+pak (n=1),2 


): PAUSE O: LET x$=INKEY BEEP 
„01,50: ТЕ ХУСТОК" THEN 
ВЕЕР .1,0: GO TO 2580 

2583 IF VAL x$>a THEN ВЕЕР .1.0 
: 60 TO 2580 

2585 IF п-і THEN LET ea=VAL х$: 
PRINT INK 1;АТ 8,4;"Соп "zeas" 
de": 60 TO 2595 


2590 LET ed=VAL x$: PRINT AT 13, 


4; INK 1;"Соп "zedz" de” 

2595 NEXT п: PRINT АТ 20,0,, 
2600 FOR n=40 TO 176 STEP 136: F 
OR m=0 TO 32 STEP 16: BEEP .005, 


m: PLOT п+т, 40: DRAW 7,0: DRAW 1 
аті: DRAW 0,-7: DRAW —1,—1: DRAW 
-7,0: DRAW -1,1: DRAW 0,7: NEXT 
m: NEXT n 

2605 FOR n=2 TO 19 STEP 17: FOR 


m=16 TO (ea AND n=2)+(ed AND n=1 
91415 


2610 PRINT АТ т.п; INVERSE 1; IN 


К 2;CHR$ (143+(t(pa,1) AND n=2)+ 
(+ (pd,1) AND n=19)) 
2615 BEEP .01,10: NEXT m: NEXT n 


2620 DIM d(2): FOR b=5 TO 22 STE 
Р 17: LET s=0: LET c=eat (Ь=5) +еа 
%(b=22): FOR n=1 TO с: FOR m=1 T 
О 20: LET a=INT (RNDk6)+1 

2625 BRIGHT 1: IF c=3 THEN PRIN 
Т АТ 17,b;CHR$ (147+a) 

2630 IF c>=2 AND п<5 THEN PRINT 
АТ 17,b+2;CHR$ (147+a) 

2635 IF n=1 THEN PRINT АТ 17,b+ 
4;CHR$ (147+a) 

=: ВЕЕР .01,-10: NEXT m: ВЕЕР 


| 


„02,25: ВЕЕР 
2645 IF a>s THEN 
2650 NEXT n: PAUSE 10: 

о 

2655 (ЕТ d((b<>5)+1)=s: 
BRIGHT O 

2660 IF d(1)<=d(2) THEN LET tip 
a,2)=t(pa,2)-—ea: PRINT AT 20,33" 
El atacante pierde ";еа;" ej.": 

GO TO 2670 

2665 LET t(pd,2)=t(pd,2)-ed: РКІ 
NT АТ 20,5; "Е1 defensor pierde " 
sedz" еј. 
2670 PAUSE 50: LET n=19-17%x(d(2) 
>=d(1)): FOR m=16 TO eak(d(2)>=d 
(1) ) +еаж (d(2)<d(1))+15 

2675 PRINT OVER 1; INK 6;АТ man 
ВЕЕР .05,-10: PRINT OVER 
1; INK 2;АТ т,п;"Ж": ВЕЕР .05,-1 
74 


.02,35: ВЕЕР .02,30 
LET Sa 
BEEP .1,3 


NEXT bz 


2680 PRINT ІМК ОҘАТ m,nz” BE 
EP .05,-11: PRINT АТ m,n; : BE 
ЕР .05,-12 


2685 NEXT m 

2690 IF t(pd,2)<>0 AND t(pa.2)<> 

O THEN LET ;1=;: PAUSE 50: GO Т 

0 2400 

2695 PAUSE 30: PRINT PAPER SzAT 
21,4; "Territorio conquistado" 
2700 IF t(pd,2)=0 THEN LET 31-3 
z LET t(pd,1)=j1: LET ma=1: GO Т 

D 2707 

2705 LET ma=0: 

ЕТ t(pa,1)=jl 
2707 GO SUE 170: 

2710 60 SUB 140 


LET ji=t(pd,1): L 


PAUSE 50 


2715 PRINT ІМК 3;АТ 5,4;"- COND 
ECORACIONES —"; INK О;АТ 7,4; "Со 
ronel: ";а$( 51) 


2717 PRINT АТ 9,5;r;" ejercitos. 
" 

2720 FOR n=1 TO 3: FOR m=1 TO mí 
jln): ВЕЕР .01,n+m+10: PRINT AT 
9+nt2,m+8; ІМК n+1;CHR$ (158+n) 
¿AT 10+nt2,m+8;CHR% (161+n): МЕХ 
T m: NEXT n 

2723 IF ma=3 THEN GO TO 2740 
2725 LET a=INT (RNDX3)+1: LET mí 
jl а) =т( 31, а)+1 

2727 60 SUB 190 

2730 PRINT AT 19,5;"Se le conced 
e una "s INK a+1;CHR$ (158+a);AT 
20,25;СНКФ (161+a) 


P 
2732 IF ҙі<>і THEN EET: ri=1 
2735 IF RND>.7 OR ri=1 THEN PRI 
NT AT 20,6; "Y un ejercito. ": LET 
r= 
2736 IF ma=0 THEN GO TO 2810 
2737 BEEP .1,20 
2740 PRINT АТ 7,22; "САМВТО: "¿AT 
9,22; INK 23" АТ 10,22; "Жжжж" 
$ INK Os"=5" ` 
2745 PRINT INK З;АТ 11,22; "ттт" 
¿AT 12,223" 96%"; INK O 
2750 PRINT AT 13,22; 
ЗАТ 14,223" ww ws ІМК 


2755 PRINT АТ 15,22; 
INE 
INE 
2760 ІМК 3;"r 
ІМК 43 "ч": INK З;АТ 18,22; "ӘӘ 
INK 43" "U; INK Oz"=1" 
2765 PRINT AT 21,10; "Cambias"; F 
LASH 1; INK 2;"?": PAUSE О: IF I 
NKEY$="n" THEN 60 TO 2805 
2770 BEEP .1,20: LET a=r: FRINT 


АТ 21,10;"Opcion ": PAUSE О: 
x$=INKEY$: BEEP .1,30 
2775 IF x$="5" THEN IF m(j1,1)> 


LET 


=š THEN LET r=r+5: LET m(j1,1)= 
m(j1,1)-3 
2780 IF x$="4" THEN IF m(j1,2)> 
=š THEN LET r=r+4: LET m(j1,2)= 
т(31,2)-5 
2785 IF x$="3" THEN IF m(j1,3)> 


=š THEN LET r=r+3: LET 


m(j1,3)-3 

2790 IF x$="2" THEN IF m(ji,1)> 
=2 THEN IF m(j1,3)>=1 THEN LET 
r=r+2: LET m(ji,1i)=m(j1,1)-2: L 
ЕТ m(j1,3)=m(j1,3)-1 

2795 IF x$="1" THEN IF m(31,2)> 
=2 THEN IF m(j;1,3)>=1 THEN LET 


r=r+1i: LET m(ji,2)=m(;1,2)-2: L 
ET m(;1,3)=m(;1,3)-1 

2800 LET ma=3: GO TO 2710 

2805 BEEP .05,40: PRINT AT 21,53 
FLASH 1; PAPER 6;">"¿ FLASH Os" 
Movimiento de tropas. PAUSE 50 
: GO SUB 1000: GO TO 2040 

2810 ВЕЕР .01,0: ВЕЕР .01,30: LE 


m(j1,3)=_ 
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D 


T t(pa,2)=1: LET jl=j: LET r=0: 
GO SUB 130: 60 TO 2400 

3000 КЕМ НИН Informacion ИИЙ 
3005 REM 

3010 GO SUB 120: PRINT 
6,7%"- INFORMACION —" 
5015 LET 5=0: LET с=0: 
О nj: PRINT АТ п+10,1; 
INK 1;".- Coronel: ";а$ (п): 
n 

3020 PRINT АТ 20,1; "ре quien qui 
eres informacion?.": PAUSE 0: LE 
Т x$=INKEY$: ВЕЕР .01,30: IF х%< 
OR x$>STR$ nj THEN BEEP .1, 
GO TO 3020 
3025 GO SUB 120: 


INK 43AT 


FOR n=1 T 
INK 2;п; 
NEXT 


LET b=VAL x$: L 


ЕТ a=7: PRINT INK 4;АТ 5,1;"-ІМ 

FORMACION- >"; INK Oza$(b): FOR 
п=1 TO 40: IF t(n,1)<>b THEN 60 
TO 3040 


3030 IF a=19 THEN 60 SUB 130: 6 


О SUB 120: PRINT ІМК 4;AT 5, 1; " 
-ІМҒОНМАСІОМ- >"; INK Oza$(b)z L 
ET a=7 


3035 LET а=а+1: LET s=s+t(n,2): 
LET с=с+1: PRINT АТ а,1; INK 2;" 
>"; INK O;p$(n),t(n,2);" ejercit 
os." 3 


3040 NEXT п: IF a>=16 THEN GQ 5 


UB 130: GO SUB 120: PRINT INK 4 
¿AT 5,15 "-ІМҒОКМАСІОМ- >"; INK O 
sa$(b) 


3045 PRINT *" Total territ.:"; 
¡e Total ejerc. lus 
3050 GO SUB 130: GO TO 2000 


3500 REM НИШ Ver el obj 
3505 REM 
3510 60 SUB 120: PRINT AT 5,1;"- 
OBJETIVO- >"za$(;): IF tj=1 THEN 
PRINT АТ 10,1; "ОБзеё1уо:"; INK 
4;" Conquistar el mundo.": 60 S 
UB 130: GO TO 2000 
3515 INPUT " Introduzca su clave 
>"; LINE x$: LET x$=(x$+" „UA 
TD ЖУ 
3520 IF c$(;)<>x$ THEN ВЕЕР .1, 
O; PRINT PAPER 43AT 20,7; FLASH 
1;"CLAVE INCORRECTA. ": PAUSE 30 
: GO TO 2000 
3525 PRINT AT 10,13"Objetivoz"z 
RESTORE 9500: FOR m=1 ТО o(;): R 
EAD x$: NEXT m: PRINT ІМК 45AT 
2, 1;х% 
5530 60 SUB 130: 60 TO 2000 
4000 КЕМ НИН Fin desde menu и МИ 
| 4005 REM 
4010 PRINT AT 20,0; FLASH 1;" 
Pulse O para confirmar. "з 
PAUSE О: IF INKEY$<>"O" THEN BE 
EP .1,20: GO TO 2000 
4015 ВЕЕР 1,30: PAPER 7: INK Os 
ELS : PRINT АТ 0,0:"F "¿AT 0,31;" 
AT 21,О;"ь";АТ 21,313" 4" 
4020 PLOT 75,130: DRAW 8,-2: 
W 16,-3,-2: DRAW 4,-3 
4025 DRAW 70,55,-1.2: 
50,1 
4030 DRAW 32,-12,.5: 
5,-.5: DRAW -22,20,.5 
4035 DRAW -5,—60,1: DRAW -25,82, 
=1.2 
4040 DRAW -27,18,-.5 
4050 CIRCLE 88,128,1 
4055 FOR n=1 TO 31: 
О; PAPER 4; 


DRA 
DRAW —37,— 


DRAW —15,—2 


PRINT AT 20, 
BRIGHT 13" 


HA TRIUNFADO LA PAZ 
O n+31) "шт 
4060 ВЕЕР .05,50: NEXT п 
4065 FOR п=1 ТО 10: FOR m=20 TO 
40 STEP 3 
4070 ВЕЕР .01,т+п: ВЕЕР .01,m-1+ 
п: NEXT m: NEXT п 


4075 GO TO 7000 

8500 REM ШИЙ Pantalla fi HM 

8505 REM 

8515 RESTORE 7515: FOR n=1 TO 40 
: READ a,b: PRINT INK 8; PAPER 
9: АТ Б,а;СНК% (t(n.1)+143): NEXT 


n = 


8520 60 TO 8555 

8525 LET b=z (+) +22000 

8550 POKE b, (PEEK b)+128: PAUSE 

O: LET x$=INKEY$: BEEP .007,25 

8535 IF x$="z" THEN LET t=t-1: 
IF t=0 THEN LET t=40 

8540 IF x$="x" THEN LET t=t+1: 
IF t=41 THEN LET t=1 

8545 IF x$=" " THEN ВЕЕР 
RETURN 

8550 POKE b, (PEEK b-128) 

8555 BEEP .005,30: PRINT AT 19,1 
3 INK 1;">"; INK Oza$(t(t,1))3AT 
19,15; INK 23">"; ІМК Osp$(t) 

8560 PRINT AT 20,15; INK 2;" >"; 
INK O;st(t,2);" ejercitos." 

8565 60 TO 8525 

9000 REM ИНИ Principio HM 

9005 REM 

9010 POKE 25609,20 

9015 INK O: PAPER 7: 

ORDER O 

9020 GO SUB 140 


21,10: 


BRIGHT 0: В 


9025 PRINT АТ 5,0; 1NK 1;" Juego 
de estrategia (War game) en el 
que pueden participar de 2 а 4 
jugadores."*" Existen dos forma 


s de juego:la 
do,o la de un 


conquista del mun 
objetivo determin 
ado, (Esta es la mas corta)." 
9050 PRINT ІМК 1;" El jugador,p 
rimero desplazara sus ejercito 
5, y despues lu- chara, pudie 
ndo luchar con 1, 2 о $ ejerci 
tos (es mas proba- ble vencer с 
on 3).(La lucha es mediante los 
dados) ." 
9035 PRINT AT 20,2;"N. Jugadores 
s"; FLASH 1;"?": PAUSE O: LET z$ 
=INKEY$: BEEP .05,30: PRINT AT 2 
0,15;2$: IF 2$<"2" OR 2$>"4" THE 
М ВЕЕР .1,0: 60 TO 9035 
9040 LET nj=VAL z$ 
9045 PAUSE 50: PRINT АТ 20,2;"С. 


a 
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Mundo/Djetivo: (с/о) FLASH 13" 
Р": PAUSE 0: LET 2%-ІМКЕҮ%: ВЕЕР 
.05,30: PRINT АТ 20, 24;2$;: LET 
(1 AND z$="c")+(2 AND z$="o") 
: IF tj=0 THEN ВЕЕР .1,0: 60 TO 

9045 
9050 PAUSE 20: 
7055 DIM 3413) 
9060 DIM a$(4,8): FRINT АТ 5,0 
9065 FOR п=1 TO nj: INPUT ("Nomb 
re Jugo ins 2 "yy LINE Z IF z 
$= THEN GO TO 9065 
9070 LET z$=(z$+" "ys P. 
RINT '" Jugador "3n3" s "sz$( TO 
8); INK 13" "š INVERSE 1;CHR$ ( 
143+n): LET аф (п) =2% 
9075 МЕХТ п 
9080 LET ҙ-ІМТ (RNDX4)+1: 
j THEN GO TO 7080 
9085 DIM o(nj): PRINT >" Ok. 
ienza ";а$(;) 
9087 IF tj=1 THEN GO TO 9130 
7070 PAUSE 50: 60 SUB 120 
9100 PRINT AT 6,2;"-Reparto de + 


GO SUB 120 


IF ¿on 


Com 


erritorios.—""" Asignacion de 
claves." 

9105 PRINT ІМК 277" Fara. ver du 
rante el juego el objetivo de 


beras introducir tu clave." 

9110 DIM c$(nj,3): FOR п=1 TO пз 
: PRINT АТ 20,2;"Coronel: "ҙаФ(п 
) 

9115 INPUT "Elija codigo (xxx): 

"s LINE x$: LET x$=x$+" "EsTa 

3) 


9120 LET c=INT 


(RND*11)+1: FOR m 


ті TO пі: IF о(п)-с THEN GO TO 
3120 

9125 NEXT m: LET o(n)=c: LET est 
n)=x$: IF o(n)>=7+n THEN GO TO 


9120 

7127 RESTORE 9500: FRINT AT 17,1 
s"Objetivo:": FOR m=1 TO o(n): R 
EAD x$: NEXT m: PRINT INK нет 
;x$: GO SUB 150: GO SUB 110: МЕХ 
Tn 

9130 PAUSE 50: GO SUB 120: PRINT 
АТ 6,2;"-Reparto de territorios 


9155 PRINT INK 1;АТ 8,1;" Se da 

a cada jugador:"**" A ( 
40/n3)3” territorios."”" а Че 
МТ ((40/п3)%5.5);" ejercitos." 


9140 IF nj=3 THEN PRINT 77" Se 
sortea un terriritorio.” 

9145 DIM Ь(п;): DIM t (40,6): FOR 
n=1 TO 40 

7150 LET a=INT (RNDAn3)+1 

9155 IF п;<>5 THEN GO TO 9165 
9160 IF b(1)=13 AND b(2)=13 AND 


b(3)=13 THEN GO TO 9170 

9165 IF b(a)=INT (40/nj) THEN б 
О TO 9150 

9170 LET b(a)=b(a)+1: 
=a: NEXT n 

9175 GO SUB 120 

9180 PRINT INK 2;AT 5,4;"-Тесіа 
s de juego.-"*>" Z —Cursor Izg 
owy X -Cursor Dcha."*" SPAC 
E -Selecciona territorio." 

7185 PRINT INK 177" El movimien 
to del cursor no es exactamente 
este,ya que varia con los ter 
ritorios. " 


LET t(n,1) 


7170 PRINT **" En los demas caso 
s pulsar la tecla que se indi 
que." 

9195 RESTORE 9560: FOR n=1 TO 40 
3 FOR m=3 TO 6: READ a: LET tín, 
m)=a: NEXT m: NEXT n 


9200 GO SUB 120: PRINT AT 6,1;"- 
Colocacion de ejercitos." 

9205 DIM mínj,3): PRINT INK 5ҙА 
Т. 9,03" Los jugadores deben de с 


olocar sus ejercitos en sus pai 
ses, a condicion de que ningu 
no quede desocupado."”" El 


ordenador coloca tres en 
a territorio, el resto los 


cad 
col 


оса el jugador." 

9207 FOR n=1 TO 40: LET +(п,2) =5 
: NEXT n: GO SUB 150 

9210 LET t=1: FOR d=1 TO nj: LET 
r=INT ((40/n3)/2): LET ji=d: GD 
SUB 120: PRINT AT 6,7;"Turno de 
";a$(d): GO SUE 150: 60 SUE 100 

O: NEXT а 

9215 LET oo=USR 58444 

9220 PRINT AT 19,6;"k THE LAST В 

ATTLE x" 

9225 FOR m=1 TO 10: FOR n=0 TO 7 
: ВЕЕР .O01,nt2+mk2: BORDER п: NE 

XT п: NEXT m 

9230 BORDER 0: PAUSE 10: GO SUE 


150: PAUSE 50: ВЕЕР .1,40: БО TO 
2000 

9500 REM ИЙИН Datos li NM 

9501 REM 


9505 DATA "Conquistar "+STR* INT 

(72/n;)+" territorios. ", "Conqui 
star "+STR$ INT (72/nj)+" territ 
orios.","Conquistar Asia y Am.Su 
r."."Conquistar Am.Norte y Europ 
a.","Conqui star Africa,Ocenania 
y America de Sur." 


9510 DATA "Coquistar Am.Norte, E 
uropa y Oceania. ", "Сопац1 Е 
ar Asia y Africa.","Destruir a " 
+a$(1),"Destruir a "+a$(2),"Dest 
ruir а "+a$(3), "Destruir а "+а$ ( 
4) 

9515 DATA 2,5,5,4,7,5,9,5,11,1,5 
:6%7,7,6:8,4,9,9,10:9,2,1151999 
„14 

9520 DATA 14,2.12,4.12,6.15.5.16 
¿3,1874 ата-не ТИВ 15,9, 17510, 17 
12,20,12 

9525 DATA 19,8, 18,6,21,8,25,8,24 
з5.27.6,23,5,27,5,20,4,20,6, .1 
1,25,12,27,13,28,10,29,15 

9530 DATA "Alaska", "Alberta", "Оп 
tario", "Labrador", "Groenlandia", 
"California", "Florida", "Mejico", 
“Centroamerica” 

9535 DATA "Venezuela", "Peru", "Br 
asil","Argentina", ” Islandia", "ln 
glaterra","Europa del 5", "А1 етап 
іа", "Еѕсапдіпауіа", "Ucrania" 
9540 DATA "Marruecos","Egipto"," 
Guinea", "Etiopia", "Sudafrica 
agadascar", "Arabia", "Turquia", 
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ndia","Indochina","China" 

9545 DATA "Japon","Siberia", "Kam 
chatka", "Ural", "Afganistan", "Ind 
onesia”","Autralia occ", "Australi 
а or", "N.Ginea”, "М. 2е1 апда" 

9550 DATA 626, 661,695;697,571,72 
5,759, 790,825, 857, 721,923, 785, 60 
6,66? , 733, 703, 640 

9555 DATA 674,778,801,831,865,72 
9,932, 803, 738, 805, 807,712,747, 64 
7,651,676,740,902,937,971,876,10 
37 

9560 DATA 2,33,0,0,1,5,6,3,2,6,4 
47,5,5,7;0,44%2:0;4,7,2,5,8,6,2, 
8,5,6,7.9,0,8,10,0,0 

9565 DATA 7,11,12,20,10,12,13,0, 
10;11,13s22511512,0,0:5,15;18,0; 
14,18,17,16,15,17,20,0,15,16,18, 
19,14,15,17,19,17,18,34,27 

9570 DATA 16,10,22,21,20,22,23,2 
6,20,12,23,21,24,21,22,25,25,23, 
0,0,24,23,0,0,21,27,28,35,19,34, 
35, 26, 26,29, 35, 36, 28, 30, 36,0 
9575 DATA 31,32,29,0,30,33,0,0,3 
0,34,33,0,32,31,1,0,19,35,27,32, 
34,26,27,28, s 2?,37, 37, 36,39,38 
s 0, 37, 39, 40, 0, 37, 38,36, 0, 38, 0,0, 
о 


25 DRAW 7,-1,-1: DRAW 8,-1,1: 
DRAW 5,0,-2: DRAW 10,-1: DRAW 3, 
1: DRAW 4,1,-1: DRAW 7,2,2 
ЗО DRAW 2,-3,-3: DRAW -8,-7,1: 
DRAW 0,-5,5: DRAW 4,—2,-2: DRAW 
5,0,3: DRAW 0,8,1 
35 DRAW 5,0,-2: 


DRAW 5,—4,1: D 


RAW 5,-6,-1: DRAW 0,-4,—2: DRAW 
тө,-3,-і 

40 DRAW 75:1: DRAW -5,-7,-і 
: DRAW 1,— DRAW -1,-1,-2: DRAW 


-3.4.1: DRAW —5,-10,3: DRAW 4,3 
‚2: DRAW 2,0,-2 

45 DRAW 0,-5: DRAW Z,-2, 
AW 5,-5,2: DRAW 10,-1,-2 

50 DRAW 12,-9,1: DRAW 5,-5,-2: 
DRAW -5,-10: DRAW —4,-4,-1: DRA 
W —5.-8,-1: DRAW —5,-4,—1: DRAW 
-2,-5,-1: DRAW -1,-5,-і 

55 DRAW 2,—2: DRAW —2,-2,-Z: D 
RAW —6,6,-2 

60 PLOT 255,151: DRAW -15,3,1: 
DRAW -8,1,-1: DRAW -5,5,1: DRAW 


1: DR 


> 
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REM 
REM БІ A.S. 
REM 
60 SUB 2000: PRINT 
graficos. G0 SUB 3000 

7 PRINT **"Creando dibujos.””" 
Tiempo aprox. Әт: 405": PAUSE 150 

8 CLEAR 52299: РАРЕК 5: BORDE 
R 0: INK О: FLASH О: OVER Oz INV 
ERSE O: BRIGHT 0: 'CLS 

10 FLOT 72,50: DRAW 3,20: DRAW 
-4,6.2: DRAW -5,9,-1: DRAW 2,6, 
= 

15 DRAW -1,4,2: DRAW -11,7.-.5 
: DRAW -7,5,-2: DRAW —3,6: DRAW 
-2,0,3: DRAW 6: DRAW -2,0,-3: 
DRAW -5,8 

20 DRAW -3,8,-1: DRAW -3,10,1: 
DRAW —10,6,2: DRAW —6,—5,2: DRA 
W -3,2,-3: DRAW 0,8,-1: DRAW 1,5 
DRAW 7,4,-2 


1985 Mh li 


самые 


"Creando 


-4,-1,2: DRAW -8,1, 
0,1: DRAW 0,5,-2: DR 
AW -9.-1.1 

65 DRAW -9,-7.1: DI 
DRAW -3,0,3: DRAW O 
-8,-1,1: DRAW -8,-2 

70 DRAW -2,0,-2: DI 
AW -12,-3,2 

75 DRAW —5,-6,-1: 
DRAW 4,-2,-2: DRAW 
3,9 

BO DRAW 2,-2,-2: Di 


DRAW 0,-2,1: DRAW -2, 


-8,-1 

BS DRAW -1,4.-1: Di 
DRAW -8,-8,-2 

90 DRAW ©,-1: DRAW 

95 DRAW —3,0: DRAW 
0,-5: DRAW 3,-1.-1: 
DRAW 5,5,-і 

100 DRAW 5,-5: DRAW 
W 1,2: DRAW -4,4 


—2: DRAW -8, 
AW 0,5,2: DR 


RAW -2,0.-2 
,-2,-2: DRAW 
52 


RAW —4,4: DR 


DRAW 0,-5,2: 
3,0,2: DRAW 


RAW 0,-5,2: 
-4,2: DRAW 


RAW -2.0.2: 


2.-3,-3 
-1,-1: DRAW 
DRAW 2,4,2: 


2,-2,5: DRA 


W 1,-3: 
JE DRAW 4,2: 


4,-2,3: DRAW ‹ : DRAW ёз 


2,2: DRAW 0,- 


115 DRAW о,- 5,-3: DRAW 


=11;=1, 1 


: DRAW —4,5,-1: DRAW -10,-4..5 


120 DRAW -4,-21,2: DRAW 


DRAW 5,-3,-3: DRAW 0,-1 
AW 5,-13: DRAW 7,0,2 


125 DRAW 4,10,1: DRAW 2 


RAW 6,10,-1: DRAW - 
7,7,-2: DRAW - 
150 DRAW 2,0, 


: DRAW -5,4,-1: DRAW 2,1 
: DRAW 8,-12,-1: 


135 DRAW 6,10,-1: DRAW 


3: DRAW á,- 
AW 3,-1,32 DRAW 7,4: DRAW 


10,0,1: 
6,-1: DR 


2,-5: DR 


AW 0,2: DRAW 5,-12,1: DRAW 2,0,2 
s DRAW -5,8,—1: DRAW 4,-4,-1: DR 


AW 1,10,2: DRAW 6,15,1 
140 DRAW 5,-4,-1: DRAW 
RAW 0,4,-1: DRAW 5,15, 1: 
„4: DRAW 7,6,-2: DRAW 6, 
AW -1,—9,1: DRAW 2,0,5: 
о,.5 
145 DRAW 19,4, 1 


2,0, D 

DRAW -3 
2,71: DR 
DRAW 4,1 


150 PLOT 154,70: DRAW 0,8.-.5: 
5 


DRAW 2,6,.-2: DRAW 0,-6.-. 


-5,-8,-2 


160 PLOT 216,60: DRAW — 
DRAW TA tia DRAW —6,-5, 


165 DRAW 10,15,—2: DRAW 4,0,-4: 


DRAW 5,-1,5: DRAW 1,3: 


DRAW 2,0 


.-2: DRAW 6,-9,2: DRAW -5,-14,-2 


170 FLOT 105,15 DRAW 


DRAW -2,2,2: DRAW —5,-1, 


175 PLOT 209,120: DRAW 


7,—-1, 3: 
1 
7,4,1: D 


RAW —2,2,5: DRAW -6,-4,-1: DRAW 


0,-2,3 


180 PLOT 47,159: DRAW 2,-2,-2: 


DRAW -2,-2,- 
W 1,2,-2 


DRAW -2,2,-2: DRA 


185 PLOT 212,85: DRAW -4,5,-2: 
DRAW 7,0,-1: DRAW 4,-3,1.5: DRAW 


1,-5,—4:. DRAW —7,1,1 
190 PLOT 156,164: DRAW 


DRAW -4.-5,2: DRAW -2,3 


ы 3,4,-1 


195 PLOT 179,98: DRAW —1 


DRAW 1,5,-5 


3: 
DRA 


> ©, 


—3: 


5 


„728 


r 
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2,25 
2: DRAW 4,-1,3: DRAW 3, 
DRAW —1,-8,—1: DRAW —5,—6 
DRAW -5.-5,1.5: DRAW -9,0,- 


4-1 
5 
205 PLUT 226,53: 
RAW -5,-5,-2: 
1,4: 
-5 


210 PLOT 66,108: DRAW 3,0,-2: D 


DRAW 5,5,-1: D 
PLOT 234,57: DRAW 
DRAW 5,-1,-2: DRAW -3,-3,.-1 


RAW 3,-2,—2: DRAW —6,2: PLOT 68, 
108: FLOT 71,107: PLOT 74,104: D 
RAW 5,2,2: DRAW -3,-2,2 

215 PLOT 83,150: DRAW -10,9,1: 
DRAW -5,-2,2: DRAW 2,-2,2: DRAW 
2,-7.-2: DRAW 5,-5,-1: DRAW 6,4, 


2 


220 PLOT 217,133: DRAW -2,-5,1: 
DRAW 5,0,2: DRAW -1,5,1.5 

225 PLOT 117,136: DRAW Z,-1,2: 
DRAW 0,4,2: DRAW -2,4,-1: DRAW — 
2.-1.5: DRAW 1,-6,-1 

230 PLOT 112,136: DRAW 2,3,2: D 
RAW -2,-3,2 

235 PLOT 191,81: 
DRAW 8,-10,1: 
1,6,2: DRAW 
2 

240 FLOT 72,173: DRAW 10,1: DRA 
W -2,-3,-3: DRAW -7,-3,1: DRAW — 
5,1,-5: DRAW 0,5,3: DRAW 2,1,-4 


DRAW -8,10,1: 
PLOT 197,88: DRAW 
-2.-і: DRAW 2,-4, 


245 PLOT 55,155: DRAW 6,1,2: DR 
2: DRAW 3,-4,2 

250 PLOT 142,113: DRAW -1,2: PL 

OT 152,132: DRAW 0,18 

255 PAUSE 20: FOR n=22528 TO 23 

231: РОКЕ п,45: NEXT п 


260 PRINT AT 17,0; 
265 FOR n=18 TO 21: 
0; PAPER 7,,: NEXT n 
270 PRINT ІМК ОАТ 0,03 
O,31s"L AT 16,03"IMH"3AT 16,315" 
"s PAPER 75AT 18,05 "k"3A8T 18,31; 
“(АТ 21,0;"M"3AT 21,3 
275 PRINT INK O3AT 14,1 
NK 13"0"5 INK O3"T"¿AT 13,2; 
АТ 15,25" AT 12,2; INK 13"N 
280 POKE 22638,46: POKE 23050,4 
4: POKE 22962,43 

285 LET cm=1: GO SUB 1000: 


PAPER 0,, 
PRINT AT п, 


60 s 


REM Ш НИ Calavera WNN 
REM 

PAPER ©: INK 7: BORDER O; С 
PLOT 90,80: 


DRAW 100,0,-2.5: 


DRAW -20,50,-1 
DRAW -20,- 
50,—1 

530 DRAW -5,-5,1: 
RAW —50,0,-5 

540 DRAW 0,20: DRAW -5,5,1 

550 CIRCLE 95,120,15: CIRCLE 14 
5,120,15 

560 PLOT 120,100: 
: DRAW -18,0,-1: 

570 FLOT 95,70: 
95,54: DRAW 50,0 

580 FOR n=95 TO 144 STEP 10 
590 PLOT n,70: DRAW 0,-6: DRAW 


DRAW 0,-20: D 


DRAW 7,-12 
DRAW 9,12,-1 
DRAW 50,0: FLOT 


,-1 


10,0,1: PLOT п,54: DRAW 0,6: DRA 
W 10,0,-1 

600 NEXT n 

605 PLOT 81,89: DRAW -61.31: FL 


[UB 3500: GO SUB 9000 


бт 95,70: DRAW -80,40 

610 PLOT 145,57: DRAW 75,-37: Р 
LOT 143,46: DRAW 72,-36 

615 PLOT 95,57: DRAW -75,-37: Р 


LOT 95,46: DRAW -72,-56 
620 PLOT 159,89: DRAW 61,71: PL 
OT 145,70: DRAW 80,40 


630 RESTORE 1585: GO SUB 1010 
440 POKE 58445,76: POKE 58446,2 
04: POKE 58452, 24 
550 RANDOMIZE USR 58444: LET cm 
=0: RESTORE 9035: GO SUB 9015: G 
O TO 9500 
1000 REM ВИН Relleno ШИН 
1005 REM 
1007 RESTORE 1000 
1010 READ yi,xiz IF yi>=1000 THE 
№ INK yi/1000: 60 TO 1010 
1015 IF уі-999 THEN 60 TO 
1020 FOR s=-1 TO 1 STEP 2: 
is=xi-(s£0): LET х5=500%5 


1075 
LET x 


1025 FOR n=yi TO 175 


7,230,83,189.84,189,87, 187,89, 18 


1030 FOR m=xis TO xs STEP s Т 
1040 IF ЕСІМІ (m,n)=1 THEN GOT 
D 1060+5% (m=xis) 

1050 FLOT m,n 

1055 NEXT m 

1060 NEXT n 

1065 NEXT s 

1070 60 TO 1010 

1075 RETURN 

1500'REM lili Datos de relleno ШИ 
1505 REM 

1510 DATA 1000,0,78,64,76,68,105 
55,135, 17, 134, 17, 150,40, 150,21, 
108,45 

1515 DATA 110,45,111,43,113,42,1 
51,58, 134,73, 151,64, 152, 68,113,6 
7,114,66 

1520 DATA 115,65,105,75,146,79,1 
57,72,155,57,156,48,157,47,145,9 
2,168,107,168,72,173,80 

1525 DATA 2000,0,97,173,100,151, 
126, 145,153, 153, 154, 161, 156, 166, 
161,183,158, 1972, 155,205 

1530 DATA 153,225,96, 178,118,204 
, 120,204, 138, 221, 100, 190,97,171, 
95, 186, 93, 188, 74, 187,77,185, 100, 
184 

1535 DATA 121,210,128, ?16, 132,21 
7,122,212,123,214,158,154,161,15 
4,165,156 

1540 DATA 1000,0,60,217,61,214,6 
3,197,78,207,80,214,86,213 

1545 DATA 85,221,54,229,58,236,5 


5,89,196,92,198 

1560 DATA 4000,0,44,77,3000,0,62 
,137,115,126,95,118,71,155,73,15 
4,79,154,83,156 

1565 DATA 6000,0, 126, 139, 139, 131 
„134,125, 120, 117, 123, 138, 126, 121 
,136,118 

1570 DATA 142,117,122,131,124,13 
0,125,128,126,127,137,113,147,10 
ә 

1580 DATA 
1585 DATA 
1590 DATA 
6,145 
1595 

1500 

2000 

2005 

2010 


999,0 
33,120,71,120,101,120 
105,78, 105, 162,86, 95,8 


DATA 999,0 
DATA 9999 

REM HHH Verif. 
REM 

PRINT "Verificando Datos." 


Datos NEN 


2015 RESTORE 1500: LET s=0 

2020 READ а: LET ѕ=ѕ+а: IF а-999 
9 THEN 60 TO 2030 

2025 GO TO 2020 

2030 IF s<>54715 THEN PRINT "Er 
ror en datos de relleno. STOP 
2035 RESTORE 9000: LET s= FOR 
n=1 TO 24: READ а: LET $=5+а: NE 
XT n: IF s<>2144 THEN PRINT "Er 
ror en datos de c. maquina.": ST 
OP 

2040 RESTORE 3000: LET s=0: FOR 
n=1 TO 192: READ a: LET s=s+a: N 
EXT п: IF s<>15484 THEN PRINT " 
Error en datos de graficos.": ST 
ОР 


2050 PRINT "Datos Correctos.": R 
ETURN 
3000 КЕМ HHH Graficos HMHM 


3005 REM 


3040 DATA 63,15,3,3,1,1,0,0,0,0, 
128,128,192,192,240,252,0,0,1,1, 
3,3 

3045 DATA 15,63.36,131,42,65,2,1 
60,44,81,0,0,0,254,254,56,16,16, 
9,0,254,254,56,16,16,56 

3050 DATA 0,0,254,254,124,124,16 
„56,0,16,16,16,16,84,56,16,0,4 
3055 DATA 2,127,2,4,0,0,0,32,64, 
254,64,32,0,0 
3500 RESTORE 3500: 
O 65535: READ a: 
n: RETURN 

3505 DATA B4,56, 254,56,84, 16,0,0 
,124,238,198,238,124,56,0,0,84,1 
24,84,56,0,0,0,0 

9000 REM HMM Codigo maquina ВИН 
9005 REM 

9010 RESTORE 9000 

9015 FOR n=58444 TO 58455: 
a: POKE n,a: NEXT n 


FOR n=65512 T 
POKE n,a: NEXT 


READ 


SUSCRIBASE 
POR TELEFONO 
« más fácil, 

* más cómodo, 

* más rápido 


Telf. (91) 733 7969 


7 días por semana, 24 horas a su servicio 


SUSCRIBASE A 


3010 RESTORE 3000: FOR n=0 TO 16 9020 IF cm=1 THEN RANDOMIZE USR 


7: READ a: POKE 65568+п, а: NEXT 58444 
n 7025 RETURN 
5015 RETURN 9050 DATA 17,88,228,33,0,64,1,0, 


3020 DATA 243,226,192,17,192,226 | |27,237,176,201 
‚245,255, 255, 247,227,227,128,0,1 | |9035 DATA 17,0,64,33,88,228,1,.0, 
31,195 27,237,176, 201 

3025 DATA 255,193,1,231,0,68,129 | |9500 REM MHM Grabacion Шин 
,255, 255,239, 199, 199, 199,239,199? | |9505 REM 


,187,0,0,0,24,24,0,0,0,0,6,6,0 9510 PAUSE 100: INK О: PAPER 7: 
3030 DATA 0,96,96,0,0,6,6,24,2 CLS : PRINT "Grabacion." 
96,96,0,0,102,102,0,0,102,102,0, 9515 SAVE "TLBcm"CODE 52500,1 
0,102 5 

3035 DATA 102,24,24,102,102,0,0, 9525 INFUT "Mas copias? (s/n) "s 
102,102,66,36,102,102,0,252,240, LINE a$: IF a$="s" THEN 50 TO 


192,192,128,128,0,0 9515 


Proteja su ordenador у mantóngalo 
como nuevo con esta práctica 
funda de teclado transparente 


Servicio — 


especial 
para nuestros 


lectores Ж” —_ 
y amigos — екн 


RECORTE Y ЕММЕ НОҮ MISMO ESTE CUPON А: 
PUBLINFORMATICA, C/BRAVO MURILLO, 377 5: A 28020 MADRID 


51 e 3e 950 Ptas cada una num 


APROVECHE ESTA OPORTUNIDAD 
Y BENEFICIESE DE UN 30 % 


DE DESCUENTO SOBRE SU 
PRECIO NORMAL DE VENTA 


[F]Queria felicitaros por el articu- 
lo publicado en el número 10, titu- 
lado «Protección del software», y 
quería ayudar a completarlo. En la 
página 15 se dice: «... Reciente- 
mente han aparecido varios pro- 
gramas que parece ser han conse- 
guido desterrrar del reino del Spec- 
trum a los más potentes copiado- 
res. Son los llamados programas 
TURBO, grabados a distinta velo- 
cidad del estándar prefijado por las 
rutinas de la ROM». Pues bien, 
tengo en mis manos las instruccio- 
nes de un programa copiador en 
TURBO, que además copia pro- 
gramas normales. El programa se 
llama Lerm 6, y sus especificacio- 
nes técnicas son las siguientes: car- 
ga normal, carga con cabeceras 
cortas, carga con cabeceras muy 
largas, grabación con cabecera an- 
cha, grabación normal, grabación 
hasta 41 K, grabación en bloques 
inferiores a 47,3 K, grabación de 
bloques hasta 50 K, realiza copias 
tanto en cassette como en micro- 
drive, graba programas sin carga 
TURBO, carga programas turbo 
en 9 velocidades, pudiéndose alte- 
rar cuando se salve su velocidad, 
hasta 50 K. 


Gabriel Pérez 
León 


[R] Efectivamente la carrera entre 
piratas y programadores no ha he- 
cho mds que comenzar. Constan- 
temente surgen nuevos mćtodos de 
protección, cada día más comple- 


des compañías un pequeño respiro 
que deben aprovechar para sacarle 
el máximo jugo a sus últimos pro“ 
gramas. Pero, ningún método es 
inexpugnable, y la piratería se ha 
convertido en el deporte preferido 
de cientos de programadores, que 
no tardan mucho en dar con la ru- 
tina correcta que eche por tierra la 
protección de moda. Surgen pro- 
gramas piratas que son capaces de 
copiar a otros programas piratas, 
otros que se copian a sí mismos. 
En ocasiones resulta más rentable 
para las casas de sofi el comercia- 
lizar programas que esquiven las 
protecciones de sus últimos éxitos, 
antes de que lo hagan otras com- 
pañías y sean ellas las que se lleven 
los beneficios. A este paso no an- 
dará lejos el día en que se vendan 
más copiadores piratas que juegos 
y utilidades. De hecho, ya ha caído 
en nuestras manos el número 7 de 
la serie a que haces alusión (Lerm 
7), que es, como podrás imaginar, 
una versión modernizada del pro- 
grama que comentas. 


[F]soy un coleccionista de progra- 
mas deportivos para el Spectrum. 
En mi colección falta algún pro- 
grama de fútbol, de los cuales no 
encuentro en ninguna parte. ¿Me 
podrían decir si hay programas de 
fútbol para Spectrum?, y si los hay, 
¿qué casa los comercializa de me- 
jor calidad? 

Enrique Ramírez 


[® Entre los programas de fútbol 
tradicionales podemos destacar 
«Match day», de Ocean, y «World 
Cup», de Artic, ambos bastante lo- 
grados (mejor el primero) y para 
Spectrum 48 К. Si te gusta el fútbol 
(rugby) americano y conoces su re- 
glamento, también podrás disfru- 
tar con «American football», de 
Mind Games. Y si prefieres ver los 
partidos desde el banquillo, lo tuyo 
es el «football manager», distribui- 
do por Investrónica, en el que de- 
berás llevar las finanzas, fichajes, 
etc., de un equipo a lo largo de una 
o varias ligas. Sea cual sea tu elec- 
ción, esperamos que no te «cue- 
len» muchos goles. 


[P ]soy un asiduo lector de vuestra 
revista y quisiera, ante todo, felici- 
taros por los buenos artículos pu- 
blicados en ella. 

Mi problema es el siguiente: He 
copiado el programa de amplia- 
ción del sistema operativo publica- 
do en el número de septiembre, y 
creo que hay un error en la prime- 
ra línea, pues al ejecutarla siempre 
me da error en dicha línea. Ruego 
publiquéis esta errata. Gracias. Se- 
#14 publicando buenos progra- 
mas de utilidades como éste. 


Eduardo Maya 
Lanjarón (Granada) 


[8] padas las caracteristicas de la 
línea a que haces alusión, y supo- 
niendo que las hayas copiado co- 


jos. Estos apenas dan a las gran- Marbella (Málaga) 
y — 
AVANCE o ° 
Gráficos Interactivos ° 
э — Ь o ° 
° o 


ə 
Ordenación de matrices de datos 


о o 
Editor de textos en Basic columnas 


rrectamente, el error sólo puede re- 
sidir en la primera de sus senten- 
cias. Esta hace un CLEAR para 
bajar RAMTOP y dejar así un es- 
pacio de memoria disponible para 
colocar alli el código máquina. 
Esto está pensado, y en el artículo 
quedaba bien claro, para un Spec- 
trum 48 K, por lo que si el tuyo es 
un 16 K, el ordenador nunca podrá 
ejecutarlo, ya que el comando se 
referiría a una posición de memo- 
ria no existente. 

Si no es este tu problema, sólo 
podemos aconsejarte que leas 
atentamente las instrucciones de 
carga del programa y que, caso de 
continuar los problemas, nos esc. 
bas una segunda carta especifi- 
cando mejor las características de 
tu problema (diciéndonos, por 
ejemplo, el mensaje de error que 
da la mdquina). El programa en 
cuestión, como todos los que publi- 
camos, ha sido convenientemente 
probado y podemos asegurarte que 
carece de erratas. 

Intentamos publicar la mayor 
cantidad posible de utilidades, ya 
que, a pesar de ser menos «comer- 
cializables» que los juegos, son 
muchos los aficionados como Ma- 
‚ние Arana que les dedican su 
“Петро. 


ІРІ Еп el montaje del Interfacer 
Joystick que publicásteis en el nú- 
mero de julio se muestra en los di- 
bujos correspondientes un circuito 
marcado con el nombre 7451.144. 
Pues bien, si se consulta la lista de 
componentes de dicho montaje, se 
dice que el nombre de este circuito 
es 74LS244. ¿Cuál es el que tene- 
mos que comprar los que quera- 
mos realizar este montaje? 
Juan J. García 
León 


[Р] ме dirijo а Vds. para rogarles 
me aclaren el articulo del Interface 
Joystick. 

1) Pocas especificaciones para 
una cosa tan delicada en el sentido 
de que te cargas el ordenador. 


2) La fotografía de la página 28 
no corresponde con el dibujo de la 
placa. 

3) No sé sies un circuito de do- 
ble cara o simple, pero tiene que 
ser doble por que no coje de otra 
manera. La foto es circuito simple 
о no es el mismo. Si es doble la pa- 
tilla del 74LS32 está a 112 V, la 7 
que es masa está libre, la 20 del 
7415144 (o 7415244, que no se 
sabe cuál) está a D7 en vez de a +3 
V. ¿Por favor, pueden aclararme 
esto?, pues tengo hecha la placa y 
se me ocurrió probar antes un 
poco y no hay forma. Imagino que 
será el 74LS244 o el 240, porque el 
144 no lo conozco. 

P. Horcasada 
Valencia 


[R] La fotografía de la página 28 
efectivamente no debe tenerse en 
cuenta, ya que corresponde a un 
montaje de interface preliminar y 
está puesta a modo de indicación 
para un montaje del conector en 
posición ventral. 

El circuito es doble cara. El chip 
del buffer es el 741.5244. Cierta- 
mente falta una pequeña pero im- 
portantísima pista: Ha de ponerse 
a masa la patilla del chip 
7415232. У por “último, el 
74LS244 tiene alimentacón Vec a 
5+ en la patilla 20 y masa en la pa- 
1а 10, como está correctamente 
impreso en la figura. 


[Р] Llevć mi ordenador (un Spec- 
trum 3B) a reparar al servicio téc- 
nico «Hissa» de Vigo, y cuando lo 
puse a funcionar me di cuenta de 
que el programa «Boxeo» del nú- 
mero 2 no me funcionaba. Verifi- 
qué la versión que era con PRINT 
IN 63486 y obtuve 191 como res- 
puesta. Cuando pruebo PRINT IN 
65022 también obtengo como res- 
puesta 191, y según vi en una re- 
vista, mi versión tendría que ser 3B 
o Plus. ¿Es posible que me hayan 
cambiado a 3 la versión? 
José Luis González 
Sta. Cristina de Cobres (Ponteve- 
dra) 


dad 4 
r egrados, para 
morias, рег Сто, 
más usos 


Vendo Wafadri 
ü ajfadrive en es. 
plendidas condiciones (com 
prado en julio-85), aun con 
pasa de 6 meses. Regalo 
Я lis afers (microcintas), 
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Su anuncio puede ir aquí. Escribanos a 
«El corcho». TODOSPECTRUM. 
vo N 377,5. A. 28020 


4 одилоа м ALAMAK 


[Pes totalmente lógico que al ha- 
berte cambiado piezas defectuo- 
sas, y más aún, si una de éstas ha 
sido la ULA, haya cambiado la 
versión de tu Spectrum; ya que las 
tan nombradas versiones se dife- 
rencia en sólo algunos detalles. Es 
posible, por tanto, que tengas aho- 
ra una versión mixta, o incluso 
que, al realizar la reparación, sus- 
tituyeran la totalidad de la placa 
de circuito impreso. De todas for- 
mas esto no debe influir en el fun- 
cionamiento de tu ordenador; de- 
berás, eso sí, efectuar las modifica- 
ciones necesarias en los progra- 
mas que utilicen sentencias IN 
para explorar el teclado. 


[® ме gustaria que me informaran 
de las características técnicas y re- 
presentante en España de la im- 
presora Canon A-1210. 

Miguel Agulló 
San Antonio (Ibiza) 


[5и características son las si- 
guientes: 

— Impresión por inyección de 
tinta. 

— Color. 

— Bidireccional. 

— Número máximo de caracte- 
res por linea: 40 (elongados), 80 
(normales). 

— Lineas por pulgada: 6. 

— Dimensión de la mati 
puntos. 

— Juego de caracieres: ASCII 
(128 caracteres). 

— Velocidad: 40 caracteres por 
segundo. 

— Papel: normal, en rollo, an- 
chura máxima: 8,5”. 

— Número de copias: 1. 

— Tipo de arrastre: fricción. 

— Interfaces: paralelo Centro- 
nics estándar, serie RS-232. 

— Buffer: 1 linea (40-80 carac- 
teres). 

— Resolución: 560%4 colores 
(gráfica), 650*4 colores (copia 
TRO). 

— Nivel de ruido: 85 dB. 
— Representante en Espańa: 


3%7 


Canon Copiadoras de España, 
S. A. Avda. Menéndez Pelayo, 67. 
Madrid. Tel.: (91) 273 75 08. 


[k]Somos un grupo de amigos con 
varios ordenadores y quisiéramos 
que nos resolvieseis algunas dudas: 

¿Qué ventajas e inconvenientes 
reales tiene la ampliación interna 
de memoria del Spectrum? Ante la 
posibilidad de adquirirla fuera de 
España, ¿tiene su montaje algún 
inconveniente para realizarlo uno 
mismo? ¿Qué pasa con la garantía 
del ordenador? 5 


Entre la publicidad de vuestra 
revista hemos visto que existe la 
posibilidad de conectar varios 
Spectrum formando una «Red» 
que permitirá así «compartir pro- 
gramas» entre ellos. ¿Esta Red 
cquivaldrá a una ampliación de 
memoria КАМ. у, por tanto, per- 
mitirá introducir en el ordenador 
programas de más de 48 K? 


Victoria Arauzo 
y Eduardo Nogueira 
Madrid 


ІЗ La ampliación de memoria in- 
terna, caso de estar correctamenie 
hecha, convertirá a tu Spectrum en 
un 48 K sin ningún tipo de limita- 
ciones. Si la adquiris en el extran- 
jero deberéis cuidar que quien rea- 
lice el montaje tenga alguna expe- 
riencia en la materia, pues 05 Ju- 
gáis el ordenador. La garantía 
queda invalidada una vez se rom- 
pan los precintos que cubren los 
tornillos inferiores. 


El hecho de que un ordenador 
pueda acceder a la memoria de sus 
compañeros de red no es sinónimo 
de ampliación de memoria en el 
habitual sentido que esta frase tie- 
ne. Esto no quiere decir que no 
puedan usarse estas Ks extras 
para almacenamiento de datos, 
pero un microprocesador nunca 
podrá, por medio de la red, «co- 
rrer» un programa en la memoria 
de otro ordenador. 
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SUSCRIPCIONES: 

Rogamos dirijan toda la 
correspondencia relacionada con 
suscripciones a: 
TODOSPECTRUM 

EDISA; Tel. 41597 12 

Ci López de Hoyos, 141-5,0 
28002 MADRID 

(Para todos los pagos reseñar 
solamente TODOSPECTRUM! 
Para la compra de ejemplares. * 
atrasados dirijanse a la propia 
editorial 

TODOSPECTRUM 

C/ Bravo Murillo, 377-5 A 

Tel. 73374 13- 28020 MADRID. 
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Si deseas colaborar en TODOSPEC- 
TRUM remite tus artículos o progra- 
masa Bravo Murillo 377. 5: А. 28020 
Madrid. Los programas deberán estar 
grabados en cassette y los artículos 
mecanografiados, 

A efectos de remuneración, se anali- 
za cada colaboración aisladamente, es 
tudiando su complejidad y calidad, 


La versión espańola de Popular Computing 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 


ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informatica. 

Ya está a la venta 

[= 5 а ст СА 


Cómprela en su kiosco habitual o solicitela a: 


Bravo Murillo, 377 
Tel. 339662 
28020 - MADRID 


RDENADOR PERSONAL 


DISFRUTELO EN FAMILIA 


El ordenador personal para toda la familia. Con 80 K para estar a la altura de todos los gustos y necesidades. Jugar, archivar, 
aprender, programar: y con capacidad para crecer con la aplicación de periféricos. 


CARACTERISTICAS MAS IMPORTANTES DEL V-20 


e Sistema standard MSX que hace compatibles hardware y software de todos los productos que tienen este sistema en el mercado. 
e Pueden acoplar los siguientes periféricos de CANON: 


— Impresoras. — Mouse para hacer todo tipo de gráficos a 
— Floppy de 720 K, que incluye diskette MSX- color. 
DOS para aprovechar toda la capacidad del — Joy sticks. 
ordenador y además incluimos un segundo — Caja de 5 diskettes virgenes. 
diskette con tres programas de aplicaciones — Variedad de programas en cinta con juegos. 
profesionales. w 


% Y además dos manuales en castellano: guía del usuario y completo manual de BASIC. % 


